home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / bin_c / compile_to_c7.c < prev    next >
C/C++ Source or Header  |  2000-03-25  |  133KB  |  5,392 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.76Beta#1)--
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                  http://SmallEiffel.loria.fr/                --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. void r87make(T87* C,T0* a1,T0* a2){
  12. /*[IF*/
  13. if((X82to_string(a1))==((void*)(X82to_string(a2)))){
  14. {T68 se_tmp0;
  15. r66add_position((*(se_tmp0=X82start_position(a1),&se_tmp0)));
  16. }
  17. {T68 se_tmp0;
  18. r66add_position((*(se_tmp0=X82start_position(a2),&se_tmp0)));
  19. }
  20. r87fatal_error(((T0*)ms87_91200));
  21. }
  22. /*FI]*/
  23. (/*SFN*/C->_old_name)=a1;
  24. (/*SFN*/C->_new_name)=a2;
  25. }
  26.  
  27.  
  28. void r87fatal_error(T0* a1){
  29. /*[IRF3.6append*/{T0* b1=a1;
  30. r7append((T7*)(oBC66explanation),b1);
  31. }/*]*/
  32. r66print_as_fatal_error((T66*)(oBC13eh));
  33. }
  34. T0*oBC396tmp_string=NULL;
  35.  
  36.  
  37. T2 r396id(T396* C){
  38. T2 R=0;
  39. R=X52id((/*RF2*/(C)->_current_type/*8*/));
  40. return R;
  41. }
  42.  
  43.  
  44. void r396address_of_c_mapping_wrapper(T396* C){
  45. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  46. /*]*/
  47. r396address_of_wrapper_name_in(C,oBC334c_code);
  48. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  49. /*]*/
  50. }
  51.  
  52.  
  53. void r396collect_c_tmp(T396* C){
  54. T0* _c=NULL;
  55. T0* _a=NULL;
  56. /*[IF*/
  57. if(X52is_user_expanded((/*RF2*/(C)->_result_type/*32*/))){
  58. /*[IF*/
  59. if(X52is_dummy_expanded((/*RF2*/(C)->_result_type/*32*/))){
  60. }
  61.  else if(r396isa_in_line(C)){
  62. {int z1=(/*RF2*/(C)->_in_line_status/*60*/);
  63.  
  64. if((6==z1)){
  65. _a=/*(IRF4.3first*/(/*RF2*/((T215*)((/*RF2*/(C)->_routine_body/*44*/)))->_first_one/*8*/)/*)*/;
  66. if(NULL!=(_a)){
  67. switch(((T0*)_a)->id){
  68. case 282:
  69. break;
  70. default:
  71. _a=NULL;
  72. }
  73. }_c=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  74. if(NULL!=(_c)){
  75. switch(((T0*)_c)->id){
  76. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  77. break;
  78. default:
  79. _c=NULL;
  80. }
  81. }X115finalize(_c);
  82. X334collect_c_tmp(X115run_feature(_c));
  83. }
  84. }
  85. }
  86. else{
  87. r325se_tmp_add((T0*)C);
  88. }
  89. /*FI]*/
  90. }
  91. /*FI]*/
  92. }
  93.  
  94.  
  95. void r396fall_down(T396* C){
  96. T0* _rf=NULL;
  97. T0* _sub_name=NULL;
  98. T0* _sub_bc=NULL;
  99. T0* _current_bc=NULL;
  100. T0* _sub_rc=NULL;
  101. T0* _current_rc=NULL;
  102. T2 _i=0;
  103. T0* _running=NULL;
  104. _current_rc=X52run_class((/*RF2*/(C)->_current_type/*8*/));
  105. _running=(/*RF2*/(((T50*)_current_rc))->_running/*9*/);
  106. /*[IF*/
  107. if((_running)!=((void*)(NULL))){
  108. _current_bc=X52base_class((/*RF2*/(C)->_current_type/*8*/));
  109. _i=(/*RF2*/(((T53*)_running))->_lower/*12*/);
  110. while (!((_i)>((/*RF2*/(((T53*)_running))->_upper/*8*/))))
  111. {
  112. _sub_rc=r53item(((T53*)_running),_i);
  113. /*[IF*/
  114. if((_sub_rc)!=((void*)(_current_rc))){
  115. _sub_bc=X52base_class((/*RF2*/(((T50*)_sub_rc))->_current_type/*0*/));
  116. _sub_name=r51new_name_of(((T51*)_sub_bc),_current_bc,(/*RF2*/(C)->_name/*12*/));
  117. _rf=r50get_feature(((T50*)_sub_rc),_sub_name);
  118. }
  119. /*FI]*/
  120. _i=(_i)+(1);
  121. }
  122. }
  123. /*FI]*/
  124. }
  125.  
  126.  
  127. void r396compute_use_current(T396* C){
  128. T0* _ct=NULL;
  129. _ct=(/*RF2*/(C)->_current_type/*8*/);
  130. /*[IF*/
  131. if(X52is_reference(_ct)){
  132. /*[IF*/
  133. if(r47no_check((T47*)(oBC13run_control))){
  134. (/*SFN*/C->_use_current_state)=22;
  135. }
  136. else{
  137. r396std_compute_use_current(C);
  138. }
  139. /*FI]*/
  140. }
  141. else{
  142. r396std_compute_use_current(C);
  143. }
  144. /*FI]*/
  145. }
  146.  
  147.  
  148. T0* r396body_one_result_dca(T396* C){
  149. T0* R=NULL;
  150. T0* _bf=NULL;
  151. T0* _r=NULL;
  152. T0* _rf=NULL;
  153. T0* _writable_attribute=NULL;
  154. T0* _c0c=NULL;
  155. T0* _c=NULL;
  156. _c=r396body_one_result(C);
  157. if(NULL!=(_c)){
  158. switch(((T0*)_c)->id){
  159. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  160. break;
  161. default:
  162. _c=NULL;
  163. }
  164. }/*[IF*/
  165. if((_c)!=((void*)(NULL))){
  166. _c0c=/*SSWARF2*//*X115target*/(/*RF2*/(((T134*)_c))->_target/*4*/);
  167. if(NULL!=(_c0c)){
  168. switch(((T0*)_c0c)->id){
  169. case 140:
  170. break;
  171. default:
  172. _c0c=NULL;
  173. }
  174. }/*[IF*/
  175. if((_c0c)!=((void*)(NULL))){
  176. /*[IF*/
  177. if(X104is_current((/*RF2*/(((T140*)_c0c))->_target/*4*/))){
  178. _writable_attribute=(/*RF2*/(((T140*)_c0c))->_run_feature/*12*/);
  179. if(NULL!=(_writable_attribute)){
  180. switch(((T0*)_writable_attribute)->id){
  181. case 345:
  182. break;
  183. default:
  184. _writable_attribute=NULL;
  185. }
  186. }/*[IF*/
  187. if((_writable_attribute)!=((void*)(NULL))){
  188. _r=(/*RF2*/((T50*)(r345run_class(((T345*)_writable_attribute))))->_running/*9*/);
  189. _rf=X115run_feature(_c);
  190. /*[IF*/
  191. if((_rf)==((void*)(NULL))){
  192. R=_c;
  193. }
  194.  else if(((_r)!=((void*)(NULL)))&&((r53count(((T53*)_r)))==(1))){
  195. _r=(/*RF2*/((T50*)(/*SSFRF4*//*X334run_class*/r368run_class(((T368*)_rf))))->_running/*9*/);
  196. /*[IF*/
  197. if(((_r)!=((void*)(NULL)))&&((r53count(((T53*)_r)))==(1))){
  198. _bf=(/*RF2*/(((T345*)_writable_attribute))->_base_feature/*24*/);
  199. R=_c;
  200. }
  201. /*FI]*/
  202. }
  203. /*FI]*/
  204. }
  205. /*FI]*/
  206. }
  207. /*FI]*/
  208. }
  209. /*FI]*/
  210. }
  211. /*FI]*/
  212. return R;
  213. }
  214.  
  215.  
  216. void r396c_define(T396* C){
  217. /*[IF*/
  218. if(r396isa_in_line(C)){
  219. r325incr_inlined_function_count((T325*)(oBC13cpp));
  220. }
  221. else{
  222. /*[IF*/
  223. if(r396use_current(C)){
  224. r325incr_function_count((T325*)(oBC13cpp));
  225. }
  226. else{
  227. r325incr_real_function_count((T325*)(oBC13cpp));
  228. }
  229. /*FI]*/
  230. r396define_prototype(C);
  231. r396c_define_opening(C);
  232. /*[IF*/
  233. if(((/*RF2*/(C)->_routine_body/*44*/))!=((void*)(NULL))){
  234. r215compile_to_c((T215*)((/*RF2*/(C)->_routine_body/*44*/)));
  235. }
  236. /*FI]*/
  237. r396c_define_closing(C);
  238. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_8184));
  239. /*]*/
  240. r396c_frame_descriptor(C);
  241. }
  242. /*FI]*/
  243. }
  244.  
  245.  
  246. T0* r396clients(T396* C){
  247. T0* R=NULL;
  248. T0* _bfbc=NULL;
  249. T0* _bc=NULL;
  250. /*[IF*/
  251. if(((/*RF2*/(C)->_clients_memory/*4*/))==((void*)(NULL))){
  252. _bc=X52base_class((/*RF2*/(C)->_current_type/*8*/));
  253. _bfbc=(/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_base_class/*4*/);
  254. /*[IF*/
  255. if((_bc)==((void*)(_bfbc))){
  256. R=(/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_clients/*16*/);
  257. }
  258. else{
  259. R=r51clients_for(((T51*)_bc),(/*RF2*/(C)->_name/*12*/));
  260. }
  261. /*FI]*/
  262. (/*SFN*/C->_clients_memory)=R;
  263. }
  264. else{
  265. R=(/*RF2*/(C)->_clients_memory/*4*/);
  266. }
  267. /*FI]*/
  268. return R;
  269. }
  270.  
  271.  
  272. void r396put_c_name_tag(T396* C){
  273. T0* _fn=NULL;
  274. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  275. T3 b1=((T3)'\42');
  276. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  277. }/*]*/
  278. /*]*/
  279. _fn=/*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_names/*8*/))))->_first/*0*/)/*)*/;
  280. /*[IF*/
  281. if((X82to_key(_fn))!=((void*)(X82to_key((/*RF2*/(C)->_name/*12*/))))){
  282. X82put_cpp_tag((/*RF2*/(C)->_name/*12*/));
  283. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X82to_string((/*RF2*/(C)->_name/*12*/)));
  284. /*]*/
  285. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  286. T3 b1=((T3)'\40');
  287. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  288. }/*]*/
  289. /*]*/
  290. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  291. T3 b1=((T3)'\50');
  292. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  293. }/*]*/
  294. /*]*/
  295. }
  296. /*FI]*/
  297. X82put_cpp_tag(_fn);
  298. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X82to_string(_fn));
  299. /*]*/
  300. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_1108));
  301. /*]*/
  302. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/((T61*)(/*(IRF4.6base_class_name*/(/*RF2*/(((T51*)((/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_base_class/*4*/))))->_name/*18*/)/*)*/))->_to_string/*8*/));
  303. /*]*/
  304. /*[IF*/
  305. if((X82to_key(_fn))!=((void*)(X82to_key((/*RF2*/(C)->_name/*12*/))))){
  306. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  307. T3 b1=((T3)'\51');
  308. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  309. }/*]*/
  310. /*]*/
  311. }
  312. /*FI]*/
  313. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  314. T3 b1=((T3)'\42');
  315. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  316. }/*]*/
  317. /*]*/
  318. }
  319.  
  320.  
  321. T6 r396can_be_dropped(T396* C){
  322. T6 R=0;
  323. R=((((((/*RF2*/(C)->_arguments/*28*/))==((void*)(NULL)))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL))))&&(((/*RF2*/(C)->_require_assertion/*36*/))==((void*)(NULL))))&&(((/*RF2*/(C)->_ensure_assertion/*52*/))==((void*)(NULL))))&&(((/*RF2*/(C)->_rescue_compound/*48*/))==((void*)(NULL)));
  324. /*[IF*/
  325. if(R){
  326. /*[IF*/
  327. if(((/*RF2*/(C)->_routine_body/*44*/))!=((void*)(NULL))){
  328. R=0;
  329. }
  330. /*FI]*/
  331. }
  332. /*FI]*/
  333. return R;
  334. }
  335.  
  336.  
  337. void r396std_compute_use_current(T396* C){
  338. /*[IF*/
  339. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  340. /*[IF*/
  341. if(((/*RF2*/(C)->_require_assertion/*36*/))!=((void*)(NULL))){
  342. /*[IF*/
  343. if(r376use_current((T376*)((/*RF2*/(C)->_require_assertion/*36*/)))){
  344. (/*SFN*/C->_use_current_state)=22;
  345. }
  346. /*FI]*/
  347. }
  348. /*FI]*/
  349. }
  350. /*FI]*/
  351. /*[IF*/
  352. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  353. /*[IF*/
  354. if(((/*RF2*/(C)->_routine_body/*44*/))!=((void*)(NULL))){
  355. /*[IF*/
  356. if(r215use_current((T215*)((/*RF2*/(C)->_routine_body/*44*/)))){
  357. (/*SFN*/C->_use_current_state)=22;
  358. }
  359. /*FI]*/
  360. }
  361. /*FI]*/
  362. }
  363. /*FI]*/
  364. /*[IF*/
  365. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  366. /*[IF*/
  367. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  368. /*[IF*/
  369. if(r215use_current((T215*)((/*RF2*/(C)->_rescue_compound/*48*/)))){
  370. (/*SFN*/C->_use_current_state)=22;
  371. }
  372. /*FI]*/
  373. }
  374. /*FI]*/
  375. }
  376. /*FI]*/
  377. /*[IF*/
  378. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  379. /*[IF*/
  380. if(((/*RF2*/(C)->_ensure_assertion/*52*/))!=((void*)(NULL))){
  381. /*[IF*/
  382. if(r214use_current((T214*)((/*RF2*/(C)->_ensure_assertion/*52*/)))){
  383. (/*SFN*/C->_use_current_state)=22;
  384. }
  385. /*FI]*/
  386. }
  387. /*FI]*/
  388. }
  389. /*FI]*/
  390. /*[IF*/
  391. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  392. (/*SFN*/C->_use_current_state)=21;
  393. }
  394. /*FI]*/
  395. }
  396.  
  397.  
  398. T6 r396a_eq_neq(T396* C){
  399. T6 R=0;
  400. T0* _e=NULL;
  401. T0* _rf=NULL;
  402. T0* _c=NULL;
  403. _c=r396body_one_result_dca(C);
  404. /*[IF*/
  405. if(((_c)!=((void*)(NULL)))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL)))){
  406. _rf=X115run_feature(_c);
  407. /*[IF*/
  408. if(((_rf)==((void*)(NULL)))&&((X115arg_count(_c))==(1))){
  409. _e=/*SSFRF4*//*X139expression*/r139expression((T139*)(X115arguments(_c)),1);
  410. {int z1=X104isa_dca_inline_argument(_e);
  411.  
  412. if((0==z1)){
  413. }
  414.  else 
  415. if((-1==z1)){
  416. R=((/*RF2*/(C)->_arguments/*28*/))==((void*)(NULL));
  417. }
  418.  else{/*[IF*/
  419. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  420. R=(/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)((/*RF2*/(C)->_arguments/*28*/)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)==(1);
  421. }
  422. /*FI]*/
  423. }}
  424. }
  425. /*FI]*/
  426. }
  427. /*FI]*/
  428. return R;
  429. }
  430.  
  431.  
  432. void r396address_of_c_define(T396* C,T0* a1){
  433. /*[IF*/
  434. if(r47boost((T47*)(oBC13run_control))){
  435. /*[IF*/
  436. if(r396isa_in_line(C)){
  437. r396address_of_c_define_wrapper(C,a1);
  438. }
  439.  else if(r396use_current(C)){
  440. }
  441. else{
  442. r396address_of_c_define_wrapper(C,a1);
  443. }
  444. /*FI]*/
  445. }
  446. else{
  447. r396address_of_c_define_wrapper(C,a1);
  448. }
  449. /*FI]*/
  450. }
  451.  
  452.  
  453. T0* r396run_ensure(T396* C){
  454. T0* R=NULL;
  455. R=r51run_ensure((T51*)(X52base_class((/*RF2*/(C)->_current_type/*8*/))),(T0*)C);
  456. return R;
  457. }
  458.  
  459.  
  460. T6 r396empty_or_null_body(T396* C){
  461. T6 R=0;
  462. T0* _rb=NULL;
  463. _rb=(/*RF2*/(C)->_routine_body/*44*/);
  464. /*[IF*/
  465. if((((_rb)==((void*)(NULL)))||(/*(IRF4.7empty_or_null_body*/((/*RF2*/(((T215*)_rb))->_first_one/*8*/))==(NULL)/*)*/))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL)))){
  466. (/*SFN*/C->_static_value_mem)=0;
  467. (/*SFN*/C->_is_static_flag)=1;
  468. R=1;
  469. }
  470. /*FI]*/
  471. return R;
  472. }
  473.  
  474.  
  475. void r396default_mapping_function(T396* C){
  476. T6 _tcbd=0;
  477. T6 _uc=0;
  478. T6 _no_check=0;
  479. _no_check=r47no_check((T47*)(oBC13run_control));
  480. _uc=r396use_current(C);
  481. /*[IF*/
  482. if(!(_uc)){
  483. _tcbd=r325target_cannot_be_dropped((T325*)(oBC13cpp));
  484. /*[IF*/
  485. if(_tcbd){
  486. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  487. T3 b1=((T3)'\54');
  488. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  489. }/*]*/
  490. /*]*/
  491. }
  492. /*FI]*/
  493. }
  494. /*FI]*/
  495. r396mapping_name(C);
  496. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  497. T3 b1=((T3)'\50');
  498. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  499. }/*]*/
  500. /*]*/
  501. /*[IF*/
  502. if(_no_check){
  503. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_759));
  504. /*]*/
  505. }
  506. /*FI]*/
  507. /*[IF*/
  508. if(_uc){
  509. /*[IF*/
  510. if(_no_check){
  511. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  512. T3 b1=((T3)'\54');
  513. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  514. }/*]*/
  515. /*]*/
  516. }
  517. /*FI]*/
  518. r325put_target_as_target((T325*)(oBC13cpp));
  519. }
  520. /*FI]*/
  521. /*[IF*/
  522. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  523. /*[IF*/
  524. if((_uc)||(_no_check)){
  525. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  526. T3 b1=((T3)'\54');
  527. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  528. }/*]*/
  529. /*]*/
  530. }
  531. /*FI]*/
  532. r325put_arguments((T325*)(oBC13cpp));
  533. }
  534. /*FI]*/
  535. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  536. T3 b1=((T3)'\51');
  537. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  538. }/*]*/
  539. /*]*/
  540. /*[IF*/
  541. if((!(_uc))&&(_tcbd)){
  542. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  543. T3 b1=((T3)'\51');
  544. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  545. }/*]*/
  546. /*]*/
  547. }
  548. /*FI]*/
  549. }
  550.  
  551.  
  552. void r396address_of_wrapper_name_in(T396* C,T0* a1){
  553. r7extend(((T7*)a1),((T3)'W'));
  554. r2append_in(r396id(C),a1);
  555. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),a1);
  556. }
  557.  
  558.  
  559. void r396make(T396* C,T0* a1,T0* a2,T0* a3){
  560. (/*SFN*/C->_current_type)=a1;
  561. (/*SFN*/C->_name)=a2;
  562. (/*SFN*/C->_base_feature)=a3;
  563. r50add_rf((T50*)(r396run_class(C)),(T0*)C,X82to_key(a2));
  564. r49incr_magic_count((T49*)(oBC13small_eiffel));
  565. (/*SFN*/C->_use_current_state)=23;
  566. (/*SFN*/C->_stupid_switch_state)=23;
  567. r49push((T49*)(oBC13small_eiffel),(T0*)C);
  568. r396initialize(C);
  569. r49pop((T49*)(oBC13small_eiffel));
  570. }
  571.  
  572.  
  573. T6 r396dca(T396* C){
  574. T6 R=0;
  575. T0* _args=NULL;
  576. T0* _rf=NULL;
  577. T0* _c=NULL;
  578. _c=r396body_one_result_dca(C);
  579. /*[IF*/
  580. if(((_c)!=((void*)(NULL)))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL)))){
  581. _rf=X115run_feature(_c);
  582. /*[IF*/
  583. if((_rf)!=((void*)(NULL))){
  584. /*[IF*/
  585. if((_rf)!=((void*)(C))){
  586. /*[IF*/
  587. if(X52is_user_expanded(/*SSWARF2*//*X334current_type*/(/*RF2*/(((T368*)_rf))->_current_type/*8*/))){
  588. }
  589. else{
  590. _args=X115arguments(_c);
  591. /*[IF*/
  592. if((_args)==((void*)(NULL))){
  593. R=((/*RF2*/(C)->_arguments/*28*/))==((void*)(NULL));
  594. }
  595. else{
  596. R=X139isa_dca_inline(_args,(T0*)C,_rf);
  597. }
  598. /*FI]*/
  599. }
  600. /*FI]*/
  601. }
  602. /*FI]*/
  603. }
  604. /*FI]*/
  605. }
  606. /*FI]*/
  607. return R;
  608. }
  609.  
  610.  
  611. void r396c_assertion_flag(T396* C){
  612. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  613. /*]*/
  614. r396c_frame_descriptor_name_in(C,oBC334c_code);
  615. r7append((T7*)(oBC334c_code),((T0*)ms334_30285));
  616. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  617. /*]*/
  618. }
  619.  
  620.  
  621. void r396c_define_opening(T396* C){
  622. T0* _oresult=NULL;
  623. T6 _ensure_check=0;
  624. T6 _no_check=0;
  625. T0* _t=NULL;
  626. _no_check=r47no_check((T47*)(oBC13run_control));
  627. _ensure_check=r47ensure_check((T47*)(oBC13run_control));
  628. /*[IF*/
  629. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  630. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_21346));
  631. /*]*/
  632. }
  633. /*FI]*/
  634. /*[IF*/
  635. /*AF*/if(((/*RF2*/(C)->_result_type/*32*/))!=((void*)(NULL))){
  636. _t=X52run_type((/*RF2*/(C)->_result_type/*32*/));
  637. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  638. /*]*/
  639. X52c_type_for_result_in(_t,oBC334c_code);
  640. r7append((T7*)(oBC334c_code),((T0*)ms334_525));
  641. X52c_initialize_in(_t,oBC334c_code);
  642. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  643. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  644. /*]*/
  645. /*[IF*/
  646. if(_no_check){
  647. r7append((T7*)(oBC13c_frame_descriptor_locals),((T0*)ms334_10538));
  648. r203increment((T203*)(oBC13c_frame_descriptor_local_count));
  649. r7append((T7*)(oBC13c_frame_descriptor_format),((T0*)ms15_7314));
  650. X52c_frame_descriptor(_t);
  651. }
  652. /*FI]*/
  653. }
  654. /*FI]*/
  655. /*[IF*/
  656. if(((/*RF2*/(C)->_local_vars/*40*/))!=((void*)(NULL))){
  657. r169c_declare((T169*)((/*RF2*/(C)->_local_vars/*40*/)));
  658. }
  659. /*FI]*/
  660. /*[IF*/
  661. if(_ensure_check){
  662. /*[IF*/
  663. if(((/*RF2*/(C)->_ensure_assertion/*52*/))!=((void*)(NULL))){
  664. r214c_declare_for_old((T214*)((/*RF2*/(C)->_ensure_assertion/*52*/)));
  665. }
  666. /*FI]*/
  667. }
  668. /*FI]*/
  669. /*[IF*/
  670. if(_no_check){
  671. /*[IF*/
  672. if(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))>(0)){
  673. r7copy((T7*)(oBC334c_code),((T0*)ms334_21567));
  674. /*[IRF3.5append_in*/r2append_in(((T2)((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))),oBC334c_code);
  675. /*]*/
  676. r7extend((T7*)(oBC334c_code),((T3)'\135'));
  677. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  678. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  679. /*]*/
  680. }
  681. /*FI]*/
  682. r396c_initialize_ds_one_by_one(C);
  683. /*[IRF3.2c_initialize_locals_one_by_one*/{T3 _c=0;
  684. T2 _j=0;
  685. T2 _i=0;
  686. _j=1;
  687. while (!(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))==(_i)))
  688. {
  689. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_8120));
  690. /*]*/
  691. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),_i);
  692. /*]*/
  693. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_308));
  694. /*]*/
  695. _c=/*(IRF4.6item*/((/*RF2*/((T7*)(oBC13c_frame_descriptor_locals))->_storage/*0*/))[(_j)-(1)]/*)*/;
  696. while (!((_c)==(((T3)'\54'))))
  697. {
  698. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  699. T3 b1=_c;
  700. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  701. }/*]*/
  702. /*]*/
  703. _j=(_j)+(1);
  704. _c=/*(IRF4.6item*/((/*RF2*/((T7*)(oBC13c_frame_descriptor_locals))->_storage/*0*/))[(_j)-(1)]/*)*/;
  705. }
  706. _j=(_j)+(1);
  707. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  708. /*]*/
  709. _i=(_i)+(1);
  710. }
  711. }/*]*/
  712. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_14520a));
  713. /*]*/
  714. }
  715. /*FI]*/
  716. /*[IF*/
  717. if(_ensure_check){
  718. /*[IF*/
  719. if(((/*RF2*/(C)->_ensure_assertion/*52*/))!=((void*)(NULL))){
  720. r214compile_to_c_old((T214*)((/*RF2*/(C)->_ensure_assertion/*52*/)));
  721. }
  722. /*FI]*/
  723. }
  724. /*FI]*/
  725. /*[IF*/
  726. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  727. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_23008));
  728. /*]*/
  729. r215compile_to_c((T215*)((/*RF2*/(C)->_rescue_compound/*48*/)));
  730. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_47752));
  731. /*]*/
  732. }
  733. /*FI]*/
  734. /*[IF*/
  735. if(((/*RF2*/(C)->_local_vars/*40*/))!=((void*)(NULL))){
  736. r169initialize_expanded((T169*)((/*RF2*/(C)->_local_vars/*40*/)));
  737. }
  738. /*FI]*/
  739. /*[IF*/
  740. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  741. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_7436));
  742. /*]*/
  743. }
  744. /*FI]*/
  745. /*[IF*/
  746. if(((/*RF2*/(C)->_require_assertion/*36*/))!=((void*)(NULL))){
  747. r376compile_to_c((T376*)((/*RF2*/(C)->_require_assertion/*36*/)));
  748. }
  749. /*FI]*/
  750. /*[IF*/
  751. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  752. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_57680));
  753. /*]*/
  754. /*[IF*/
  755. if(_no_check){
  756. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_11988));
  757. /*]*/
  758. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_14520));
  759. /*]*/
  760. }
  761. /*FI]*/
  762. }
  763. /*FI]*/
  764. }
  765.  
  766.  
  767. void r396c_define_closing(T396* C){
  768. /*[IF*/
  769. if(r47ensure_check((T47*)(oBC13run_control))){
  770. /*[IF*/
  771. if(((/*RF2*/(C)->_ensure_assertion/*52*/))!=((void*)(NULL))){
  772. r214compile_to_c((T214*)((/*RF2*/(C)->_ensure_assertion/*52*/)));
  773. }
  774. /*FI]*/
  775. }
  776. /*FI]*/
  777. /*[IF*/
  778. if(r396use_current(C)){
  779. /*[IF*/
  780. if((X82to_string((/*RF2*/(C)->_name/*12*/)))!=((void*)(((T0*)ms15_8750)))){
  781. r325current_class_invariant((/*RF2*/(C)->_current_type/*8*/));
  782. }
  783. /*FI]*/
  784. }
  785. /*FI]*/
  786. /*[IF*/
  787. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  788. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_25380));
  789. /*]*/
  790. }
  791. /*FI]*/
  792. /*[IF*/
  793. if(r47no_check((T47*)(oBC13run_control))){
  794. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_19400));
  795. /*]*/
  796. }
  797. /*FI]*/
  798. }
  799.  
  800.  
  801. void r396initialize(T396* C){
  802. (/*SFN*/C->_arguments)=(/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_arguments/*20*/);
  803. (/*SFN*/C->_result_type)=(/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_result_type/*56*/);
  804. /*[IF*/
  805. if(X52is_like_argument((/*RF2*/(C)->_result_type/*32*/))){
  806. /*[IF*/
  807. if(!(r178is_runnable((T178*)((/*RF2*/(C)->_arguments/*28*/)),(/*RF2*/(C)->_current_type/*8*/)))){
  808. {T178*n=((T178*)malloc(sizeof(*n))/*12*/);
  809. *n=M178;
  810. r178with(n,(/*RF2*/(C)->_arguments/*28*/),(/*RF2*/(C)->_current_type/*8*/));
  811. (/*SFN*/C->_arguments)=((T0*)n);
  812. }
  813. }
  814. /*FI]*/
  815. (/*SFN*/C->_result_type)=X52to_runnable((/*RF2*/(C)->_result_type/*32*/),(/*RF2*/(C)->_current_type/*8*/));
  816. }
  817. else{
  818. (/*SFN*/C->_result_type)=X52to_runnable((/*RF2*/(C)->_result_type/*32*/),(/*RF2*/(C)->_current_type/*8*/));
  819. /*[IF*/
  820. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  821. /*[IF*/
  822. if(!(r178is_runnable((T178*)((/*RF2*/(C)->_arguments/*28*/)),(/*RF2*/(C)->_current_type/*8*/)))){
  823. {T178*n=((T178*)malloc(sizeof(*n))/*12*/);
  824. *n=M178;
  825. r178with(n,(/*RF2*/(C)->_arguments/*28*/),(/*RF2*/(C)->_current_type/*8*/));
  826. (/*SFN*/C->_arguments)=((T0*)n);
  827. }
  828. }
  829. /*FI]*/
  830. }
  831. /*FI]*/
  832. }
  833. /*FI]*/
  834. (/*SFN*/C->_local_vars)=(/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_local_vars/*40*/);
  835. /*[IF*/
  836. if(((/*RF2*/(C)->_local_vars/*40*/))!=((void*)(NULL))){
  837. (/*SFN*/C->_local_vars)=r169to_runnable((T169*)((/*RF2*/(C)->_local_vars/*40*/)),(/*RF2*/(C)->_current_type/*8*/));
  838. }
  839. /*FI]*/
  840. (/*SFN*/C->_routine_body)=(/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_routine_body/*44*/);
  841. /*[IF*/
  842. if(((/*RF2*/(C)->_routine_body/*44*/))!=((void*)(NULL))){
  843. (/*SFN*/C->_routine_body)=r215to_runnable((T215*)((/*RF2*/(C)->_routine_body/*44*/)),(/*RF2*/(C)->_current_type/*8*/));
  844. }
  845. /*FI]*/
  846. /*[IF*/
  847. if(r47require_check((T47*)(oBC13run_control))){
  848. (/*SFN*/C->_require_assertion)=r396run_require(C);
  849. }
  850. /*FI]*/
  851. /*[IF*/
  852. if(r47ensure_check((T47*)(oBC13run_control))){
  853. (/*SFN*/C->_ensure_assertion)=r396run_ensure(C);
  854. }
  855. /*FI]*/
  856. (/*SFN*/C->_rescue_compound)=(/*RF2*/((T304*)((/*RF2*/(C)->_base_feature/*24*/)))->_rescue_compound/*48*/);
  857. /*[IF*/
  858. if(((/*RF2*/(C)->_rescue_compound/*48*/))==((void*)(NULL))){
  859. (/*SFN*/C->_rescue_compound)=r396default_rescue_compound(C);
  860. }
  861. /*FI]*/
  862. /*[IF*/
  863. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  864. /*[IRF3.3set_used*/((((T380*)((T380*)(oBC13exceptions_handler))))->_used)=(1);
  865. /*]*/
  866. (/*SFN*/C->_rescue_compound)=r215to_runnable((T215*)((/*RF2*/(C)->_rescue_compound/*48*/)),(/*RF2*/(C)->_current_type/*8*/));
  867. }
  868. /*FI]*/
  869. }
  870.  
  871.  
  872. void r396in_line(T396* C){
  873. T0* _rt=NULL;
  874. T0* _cien=NULL;
  875. T0* _rf=NULL;
  876. T0* _c=NULL;
  877. T6 _flag=0;
  878. T0* _e=NULL;
  879. T0* _a=NULL;
  880. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms396_5216));
  881. /*]*/
  882. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/(C)->_in_line_status/*60*/));
  883. /*]*/
  884. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X82to_string((/*RF2*/(C)->_name/*12*/)));
  885. /*]*/
  886. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_178));
  887. /*]*/
  888. {int z1=(/*RF2*/(C)->_in_line_status/*60*/);
  889.  
  890. if((1==z1)){
  891. _flag=r325cannot_drop_all((T325*)(oBC13cpp));
  892. /*[IF*/
  893. if(_flag){
  894. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  895. T3 b1=((T3)'\54');
  896. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  897. }/*]*/
  898. /*]*/
  899. }
  900. /*FI]*/
  901. _rt=X52run_type((/*RF2*/(C)->_result_type/*32*/));
  902. /*[IF*/
  903. if(X52is_user_expanded(_rt)){
  904. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  905. T3 b1=((T3)'M');
  906. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  907. }/*]*/
  908. /*]*/
  909. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X52id(_rt));
  910. /*]*/
  911. }
  912. else{
  913. X52c_initialize(_rt);
  914. }
  915. /*FI]*/
  916. /*[IF*/
  917. if(_flag){
  918. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  919. T3 b1=((T3)'\51');
  920. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  921. }/*]*/
  922. /*]*/
  923. }
  924. /*FI]*/
  925. }
  926.  else 
  927. if((2==z1)){
  928. _flag=r325cannot_drop_all((T325*)(oBC13cpp));
  929. /*[IF*/
  930. if(_flag){
  931. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  932. T3 b1=((T3)'\54');
  933. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  934. }/*]*/
  935. /*]*/
  936. }
  937. /*FI]*/
  938. _a=/*(IRF4.3first*/(/*RF2*/((T215*)((/*RF2*/(C)->_routine_body/*44*/)))->_first_one/*8*/)/*)*/;
  939. if(NULL!=(_a)){
  940. switch(((T0*)_a)->id){
  941. case 282:
  942. break;
  943. default:
  944. _a=NULL;
  945. }
  946. }_e=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  947. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  948. T3 b1=((T3)'\50');
  949. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  950. }/*]*/
  951. /*]*/
  952. X104compile_to_c(_e);
  953. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  954. T3 b1=((T3)'\51');
  955. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  956. }/*]*/
  957. /*]*/
  958. /*[IF*/
  959. if(_flag){
  960. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  961. T3 b1=((T3)'\51');
  962. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  963. }/*]*/
  964. /*]*/
  965. }
  966. /*FI]*/
  967. }
  968.  else 
  969. if((3==z1)){
  970. _flag=r325arguments_cannot_be_dropped((T325*)(oBC13cpp));
  971. /*[IF*/
  972. if(_flag){
  973. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  974. T3 b1=((T3)'\54');
  975. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  976. }/*]*/
  977. /*]*/
  978. }
  979. /*FI]*/
  980. _a=/*(IRF4.3first*/(/*RF2*/((T215*)((/*RF2*/(C)->_routine_body/*44*/)))->_first_one/*8*/)/*)*/;
  981. if(NULL!=(_a)){
  982. switch(((T0*)_a)->id){
  983. case 282:
  984. break;
  985. default:
  986. _a=NULL;
  987. }
  988. }_c=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  989. if(NULL!=(_c)){
  990. switch(((T0*)_c)->id){
  991. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  992. break;
  993. default:
  994. _c=NULL;
  995. }
  996. }_rf=X115run_feature(_c);
  997. X334mapping_c(_rf);
  998. /*[IF*/
  999. if(_flag){
  1000. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1001. T3 b1=((T3)'\51');
  1002. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1003. }/*]*/
  1004. /*]*/
  1005. }
  1006. /*FI]*/
  1007. }
  1008.  else 
  1009. if((4==z1)){
  1010. _flag=r325arguments_cannot_be_dropped((T325*)(oBC13cpp));
  1011. /*[IF*/
  1012. if(_flag){
  1013. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1014. T3 b1=((T3)'\54');
  1015. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1016. }/*]*/
  1017. /*]*/
  1018. }
  1019. /*FI]*/
  1020. _rt=X52run_type((/*RF2*/(C)->_result_type/*32*/));
  1021. /*[IF*/
  1022. if(X52is_basic_eiffel_expanded(_rt)){
  1023. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1024. T3 b1=((T3)'\50');
  1025. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1026. }/*]*/
  1027. /*]*/
  1028. r325put_target_as_value((T325*)(oBC13cpp));
  1029. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1030. T3 b1=((T3)'\51');
  1031. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1032. }/*]*/
  1033. /*]*/
  1034. }
  1035. else{
  1036. r7copy((T7*)(oBC396tmp_string),((T0*)ms14_160a));
  1037. X52c_type_for_result_in(_rt,oBC396tmp_string);
  1038. r7append((T7*)(oBC396tmp_string),((T0*)ms14_162a));
  1039. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC396tmp_string);
  1040. /*]*/
  1041. r325put_target_as_value((T325*)(oBC13cpp));
  1042. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_164));
  1043. /*]*/
  1044. }
  1045. /*FI]*/
  1046. /*[IF*/
  1047. if(_flag){
  1048. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1049. T3 b1=((T3)'\51');
  1050. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1051. }/*]*/
  1052. /*]*/
  1053. }
  1054. /*FI]*/
  1055. }
  1056.  else 
  1057. if((5==z1)){
  1058. _a=/*(IRF4.3first*/(/*RF2*/((T215*)((/*RF2*/(C)->_routine_body/*44*/)))->_first_one/*8*/)/*)*/;
  1059. if(NULL!=(_a)){
  1060. switch(((T0*)_a)->id){
  1061. case 282:
  1062. break;
  1063. default:
  1064. _a=NULL;
  1065. }
  1066. }_c=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  1067. if(NULL!=(_c)){
  1068. switch(((T0*)_c)->id){
  1069. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1070. break;
  1071. default:
  1072. _c=NULL;
  1073. }
  1074. }_rf=X115run_feature(_c);
  1075. r325push_same_target((T325*)(oBC13cpp),_rf,X115arguments(_c));
  1076. X334mapping_c(_rf);
  1077. r325pop((T325*)(oBC13cpp));
  1078. }
  1079.  else 
  1080. if((6==z1)){
  1081. _a=/*(IRF4.3first*/(/*RF2*/((T215*)((/*RF2*/(C)->_routine_body/*44*/)))->_first_one/*8*/)/*)*/;
  1082. if(NULL!=(_a)){
  1083. switch(((T0*)_a)->id){
  1084. case 282:
  1085. break;
  1086. default:
  1087. _a=NULL;
  1088. }
  1089. }_c=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  1090. if(NULL!=(_c)){
  1091. switch(((T0*)_c)->id){
  1092. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1093. break;
  1094. default:
  1095. _c=NULL;
  1096. }
  1097. }r325push_inline_dca((T325*)(oBC13cpp),(T0*)C,_c);
  1098. X334mapping_c(X115run_feature(_c));
  1099. r325pop((T325*)(oBC13cpp));
  1100. }
  1101.  else 
  1102. if((7==z1)){
  1103. _a=/*(IRF4.3first*/(/*RF2*/((T215*)((/*RF2*/(C)->_routine_body/*44*/)))->_first_one/*8*/)/*)*/;
  1104. if(NULL!=(_a)){
  1105. switch(((T0*)_a)->id){
  1106. case 282:
  1107. break;
  1108. default:
  1109. _a=NULL;
  1110. }
  1111. }_cien=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  1112. if(NULL!=(_cien)){
  1113. switch(((T0*)_cien)->id){
  1114. case 187:case 189:
  1115. break;
  1116. default:
  1117. _cien=NULL;
  1118. }
  1119. }r325push_inline_dca((T325*)(oBC13cpp),(T0*)C,_cien);
  1120. X188dca_inline(_cien,X104result_type(/*SSFRF4*//*X188arg1*/r187arg1(((T187*)_cien))));
  1121. r325pop((T325*)(oBC13cpp));
  1122. }
  1123.  else 
  1124. if(((8<=z1)&&(z1<=9))){
  1125. _flag=r325target_cannot_be_dropped((T325*)(oBC13cpp));
  1126. /*[IF*/
  1127. if(_flag){
  1128. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1129. T3 b1=((T3)'\54');
  1130. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1131. }/*]*/
  1132. /*]*/
  1133. }
  1134. /*FI]*/
  1135. _a=/*(IRF4.3first*/(/*RF2*/((T215*)((/*RF2*/(C)->_routine_body/*44*/)))->_first_one/*8*/)/*)*/;
  1136. if(NULL!=(_a)){
  1137. switch(((T0*)_a)->id){
  1138. case 282:
  1139. break;
  1140. default:
  1141. _a=NULL;
  1142. }
  1143. }_c=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  1144. if(NULL!=(_c)){
  1145. switch(((T0*)_c)->id){
  1146. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1147. break;
  1148. default:
  1149. _c=NULL;
  1150. }
  1151. }_rf=X115run_feature(_c);
  1152. r325push_direct((T325*)(oBC13cpp),_rf,/*SSWARF2*//*X115target*/(/*RF2*/(((T134*)_c))->_target/*4*/),X115arguments(_c));
  1153. X334mapping_c(_rf);
  1154. r325pop((T325*)(oBC13cpp));
  1155. /*[IF*/
  1156. if(_flag){
  1157. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1158. T3 b1=((T3)'\51');
  1159. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1160. }/*]*/
  1161. /*]*/
  1162. }
  1163. /*FI]*/
  1164. }
  1165.  else {_a=/*(IRF4.3first*/(/*RF2*/((T215*)((/*RF2*/(C)->_routine_body/*44*/)))->_first_one/*8*/)/*)*/;
  1166. if(NULL!=(_a)){
  1167. switch(((T0*)_a)->id){
  1168. case 282:
  1169. break;
  1170. default:
  1171. _a=NULL;
  1172. }
  1173. }_c=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  1174. if(NULL!=(_c)){
  1175. switch(((T0*)_c)->id){
  1176. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1177. break;
  1178. default:
  1179. _c=NULL;
  1180. }
  1181. }_rf=X115run_feature(_c);
  1182. r325push_same_target((T325*)(oBC13cpp),_rf,X115arguments(_c));
  1183. X334mapping_c(_rf);
  1184. r325pop((T325*)(oBC13cpp));
  1185. }}
  1186. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms396_1095));
  1187. /*]*/
  1188. }
  1189.  
  1190.  
  1191. void r396mapping_c(T396* C){
  1192. T2 _tmp_expanded_idx=0;
  1193. /*[IF*/
  1194. if(r396isa_in_line(C)){
  1195. r396in_line(C);
  1196. }
  1197. else{
  1198. _tmp_expanded_idx=r325se_tmp_open((T0*)C);
  1199. r396default_mapping_function(C);
  1200. /*[IF*/
  1201. if((_tmp_expanded_idx)>=(0)){
  1202. r325se_tmp_close(_tmp_expanded_idx);
  1203. }
  1204. /*FI]*/
  1205. }
  1206. /*FI]*/
  1207. }
  1208.  
  1209.  
  1210. void r396address_of_c_define_wrapper(T396* C,T0* a1){
  1211. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  1212. /*]*/
  1213. /*[IF*/
  1214. if(((/*RF2*/(C)->_result_type/*32*/))==((void*)(NULL))){
  1215. r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  1216. }
  1217. else{
  1218. X52c_type_for_external_in((/*RF2*/(C)->_result_type/*32*/),oBC334c_code);
  1219. }
  1220. /*FI]*/
  1221. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  1222. r396address_of_wrapper_name_in(C,oBC334c_code);
  1223. r7extend((T7*)(oBC334c_code),((T3)'\50'));
  1224. X52c_type_for_external_in((/*RF2*/(C)->_current_type/*8*/),oBC334c_code);
  1225. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  1226. r7extend((T7*)(oBC334c_code),((T3)'C'));
  1227. /*[IF*/
  1228. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  1229. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  1230. r178external_prototype_in((T178*)((/*RF2*/(C)->_arguments/*28*/)),oBC334c_code);
  1231. }
  1232. /*FI]*/
  1233. r7extend((T7*)(oBC334c_code),((T3)'\51'));
  1234. r325put_c_heading((T325*)(oBC13cpp),oBC334c_code);
  1235. r338define_body_of((T0*)C);
  1236. }
  1237.  
  1238.  
  1239. void r396std_compute_stupid_switch(T396* C,T0* a1){
  1240. T0* _rt=NULL;
  1241. _rt=(/*RF2*/(C)->_result_type/*32*/);
  1242. /*[IF*/
  1243. if(((_rt)!=((void*)(NULL)))&&(X52is_user_expanded(_rt))){
  1244. (/*SFN*/C->_stupid_switch_state)=21;
  1245. }
  1246. /*FI]*/
  1247. /*[IF*/
  1248. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(24)){
  1249. /*[IF*/
  1250. if(((/*RF2*/(C)->_routine_body/*44*/))!=((void*)(NULL))){
  1251. /*[IF*/
  1252. if(!(r215stupid_switch((T215*)((/*RF2*/(C)->_routine_body/*44*/)),a1))){
  1253. (/*SFN*/C->_stupid_switch_state)=21;
  1254. }
  1255. /*FI]*/
  1256. }
  1257. /*FI]*/
  1258. }
  1259. /*FI]*/
  1260. /*[IF*/
  1261. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(24)){
  1262. /*[IF*/
  1263. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  1264. /*[IF*/
  1265. if(!(r215stupid_switch((T215*)((/*RF2*/(C)->_rescue_compound/*48*/)),a1))){
  1266. (/*SFN*/C->_stupid_switch_state)=21;
  1267. }
  1268. /*FI]*/
  1269. }
  1270. /*FI]*/
  1271. }
  1272. /*FI]*/
  1273. /*[IF*/
  1274. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(24)){
  1275. (/*SFN*/C->_stupid_switch_state)=22;
  1276. }
  1277. /*FI]*/
  1278. }
  1279.  
  1280.  
  1281. void r396routine_afd_check(T396* C){
  1282. /*[IF*/
  1283. if(((/*RF2*/(C)->_require_assertion/*36*/))!=((void*)(NULL))){
  1284. r376afd_check((T376*)((/*RF2*/(C)->_require_assertion/*36*/)));
  1285. }
  1286. /*FI]*/
  1287. /*[IF*/
  1288. if(((/*RF2*/(C)->_routine_body/*44*/))!=((void*)(NULL))){
  1289. r215afd_check((T215*)((/*RF2*/(C)->_routine_body/*44*/)));
  1290. }
  1291. /*FI]*/
  1292. /*[IF*/
  1293. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  1294. r215afd_check((T215*)((/*RF2*/(C)->_rescue_compound/*48*/)));
  1295. }
  1296. /*FI]*/
  1297. /*[IF*/
  1298. if(((/*RF2*/(C)->_ensure_assertion/*52*/))!=((void*)(NULL))){
  1299. r214afd_check((T214*)((/*RF2*/(C)->_ensure_assertion/*52*/)));
  1300. }
  1301. /*FI]*/
  1302. }
  1303.  
  1304.  
  1305. T6 r396dc_pco1(T396* C){
  1306. T6 R=0;
  1307. T0* _rf6=NULL;
  1308. T0* _c=NULL;
  1309. _c=r396body_one_dc_pco(C);
  1310. /*[IF*/
  1311. if(((_c)!=((void*)(NULL)))&&(X104is_current(/*SSWARF2*//*X115target*/(/*RF2*/(((T134*)_c))->_target/*4*/)))){
  1312. _rf6=X115run_feature(_c);
  1313. if(NULL!=(_rf6)){
  1314. switch(((T0*)_rf6)->id){
  1315. case 395:
  1316. break;
  1317. default:
  1318. _rf6=NULL;
  1319. }
  1320. }/*[IF*/
  1321. if((_rf6)!=((void*)(NULL))){
  1322. R=!(r395use_current(((T395*)_rf6)));
  1323. }
  1324. /*FI]*/
  1325. }
  1326. /*FI]*/
  1327. return R;
  1328. }
  1329.  
  1330.  
  1331. T0* r396body_one_result(T396* C){
  1332. T0* R=NULL;
  1333. T0* _a=NULL;
  1334. T0* _rb=NULL;
  1335. _rb=(/*RF2*/(C)->_routine_body/*44*/);
  1336. /*[IF*/
  1337. if(((_rb)!=((void*)(NULL)))&&((r215count(((T215*)_rb)))==(1))){
  1338. _a=/*(IRF4.3first*/(/*RF2*/(((T215*)_rb))->_first_one/*8*/)/*)*/;
  1339. if(NULL!=(_a)){
  1340. switch(((T0*)_a)->id){
  1341. case 282:
  1342. break;
  1343. default:
  1344. _a=NULL;
  1345. }
  1346. }/*[IF*/
  1347. if((_a)!=((void*)(NULL))){
  1348. /*[IF*/
  1349. if(X104is_result((/*RF2*/(((T282*)_a))->_left_side/*4*/))){
  1350. R=(/*RF2*/(((T282*)_a))->_right_side/*8*/);
  1351. }
  1352. /*FI]*/
  1353. }
  1354. /*FI]*/
  1355. }
  1356. /*FI]*/
  1357. return R;
  1358. }
  1359.  
  1360.  
  1361. T0* r396body_one_dc_pco(T396* C){
  1362. T0* R=NULL;
  1363. T0* _args=NULL;
  1364. T0* _c=NULL;
  1365. _c=r396body_one_result(C);
  1366. if(NULL!=(_c)){
  1367. switch(((T0*)_c)->id){
  1368. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1369. break;
  1370. default:
  1371. _c=NULL;
  1372. }
  1373. }/*[IF*/
  1374. if((((_c)!=((void*)(NULL)))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL))))&&(((/*RF2*/(C)->_arguments/*28*/))==((void*)(NULL)))){
  1375. _args=X115arguments(_c);
  1376. /*[IF*/
  1377. if(((_args)==((void*)(NULL)))||(/*SSFRF4*//*X139is_static*/r139is_static(((T139*)_args)))){
  1378. R=_c;
  1379. }
  1380. /*FI]*/
  1381. }
  1382. /*FI]*/
  1383. return R;
  1384. }
  1385.  
  1386.  
  1387. T6 r396direct_cse_call(T396* C){
  1388. T6 R=0;
  1389. T0* _rf8=NULL;
  1390. T0* _c=NULL;
  1391. /*[IF*/
  1392. if((((/*RF2*/(C)->_arguments/*28*/))==((void*)(NULL)))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL)))){
  1393. _c=r396body_one_result(C);
  1394. if(NULL!=(_c)){
  1395. switch(((T0*)_c)->id){
  1396. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1397. break;
  1398. default:
  1399. _c=NULL;
  1400. }
  1401. }/*[IF*/
  1402. if(((_c)!=((void*)(NULL)))&&((X115arguments(_c))==((void*)(NULL)))){
  1403. _c=/*SSWARF2*//*X115target*/(/*RF2*/(((T134*)_c))->_target/*4*/);
  1404. if(NULL!=(_c)){
  1405. switch(((T0*)_c)->id){
  1406. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1407. break;
  1408. default:
  1409. _c=NULL;
  1410. }
  1411. }/*[IF*/
  1412. if(((_c)!=((void*)(NULL)))&&(X104is_current(/*SSWARF2*//*X115target*/(/*RF2*/(((T134*)_c))->_target/*4*/)))){
  1413. /*[IF*/
  1414. if((X115arguments(_c))==((void*)(NULL))){
  1415. _rf8=X115run_feature(_c);
  1416. if(NULL!=(_rf8)){
  1417. switch(((T0*)_rf8)->id){
  1418. case 333:
  1419. break;
  1420. default:
  1421. _rf8=NULL;
  1422. }
  1423. }/*[IF*/
  1424. if((_rf8)!=((void*)(NULL))){
  1425. R=(X82to_string((/*RF2*/(((T333*)_rf8))->_name/*12*/)))==((void*)(((T0*)ms15_16850)));
  1426. }
  1427. /*FI]*/
  1428. }
  1429. /*FI]*/
  1430. }
  1431. /*FI]*/
  1432. }
  1433. /*FI]*/
  1434. }
  1435. /*FI]*/
  1436. return R;
  1437. }
  1438.  
  1439.  
  1440. T0* r396run_require(T396* C){
  1441. T0* R=NULL;
  1442. R=r51run_require((T51*)(X52base_class((/*RF2*/(C)->_current_type/*8*/))),(T0*)C);
  1443. return R;
  1444. }
  1445.  
  1446.  
  1447. T6 r396dc_pco2(T396* C){
  1448. T6 R=0;
  1449. T0* _rf6=NULL;
  1450. T0* _c2=NULL;
  1451. T0* _c1=NULL;
  1452. _c1=r396body_one_dc_pco(C);
  1453. /*[IF*/
  1454. if((_c1)!=((void*)(NULL))){
  1455. _c2=/*SSWARF2*//*X115target*/(/*RF2*/(((T134*)_c1))->_target/*4*/);
  1456. if(NULL!=(_c2)){
  1457. switch(((T0*)_c2)->id){
  1458. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1459. break;
  1460. default:
  1461. _c2=NULL;
  1462. }
  1463. }/*[IF*/
  1464. if((_c2)!=((void*)(NULL))){
  1465. _rf6=X115run_feature(_c2);
  1466. if(NULL!=(_rf6)){
  1467. switch(((T0*)_rf6)->id){
  1468. case 395:
  1469. break;
  1470. default:
  1471. _rf6=NULL;
  1472. }
  1473. }/*[IF*/
  1474. if((((_rf6)!=((void*)(NULL)))&&(!(r395use_current(((T395*)_rf6)))))&&(X104is_current(/*SSWARF2*//*X115target*/(/*RF2*/(((T134*)_c2))->_target/*4*/)))){
  1475. R=1;
  1476. }
  1477. /*FI]*/
  1478. }
  1479. /*FI]*/
  1480. }
  1481. /*FI]*/
  1482. return R;
  1483. }
  1484.  
  1485.  
  1486. void r396mapping_name(T396* C){
  1487. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  1488. /*]*/
  1489. r7extend((T7*)(oBC334c_code),((T3)'r'));
  1490. r2append_in(r396id(C),oBC334c_code);
  1491. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),oBC334c_code);
  1492. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  1493. /*]*/
  1494. }
  1495.  
  1496.  
  1497. void r396c_initialize_ds_one_by_one(T396* C){
  1498. r7copy((T7*)(oBC334c_code),((T0*)ms334_36950));
  1499. r396c_frame_descriptor_name_in(C,oBC334c_code);
  1500. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  1501. /*[IF*/
  1502. if(r396use_current(C)){
  1503. r7append((T7*)(oBC334c_code),((T0*)ms334_18175));
  1504. }
  1505. else{
  1506. r7append((T7*)(oBC334c_code),((T0*)ms334_10999));
  1507. }
  1508. /*FI]*/
  1509. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  1510. /*]*/
  1511. {T68 se_tmp0;
  1512. r325put_position_in_ds(/*(IRF4.6start_position*/(*(se_tmp0=r304start_position(((T304*)((/*RF2*/(C)->_base_feature/*24*/)))),&se_tmp0))/*)*/);
  1513. }
  1514. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_11466));
  1515. /*]*/
  1516. /*[IF*/
  1517. if(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))>(0)){
  1518. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_11880));
  1519. /*]*/
  1520. }
  1521. /*FI]*/
  1522. }
  1523.  
  1524.  
  1525. T6 r396isa_in_line(T396* C){
  1526. T6 R=0;
  1527. /*[IF*/
  1528. if(r47boost((T47*)(oBC13run_control))){
  1529. {int z1=(/*RF2*/(C)->_in_line_status/*60*/);
  1530.  
  1531. if((-1==z1)){
  1532. }
  1533.  else 
  1534. if((0==z1)){
  1535. R=1;
  1536. /*[IF*/
  1537. if(((/*RF2*/(C)->_rescue_compound/*48*/))!=((void*)(NULL))){
  1538. (/*SFN*/C->_in_line_status)=-(1);
  1539. R=0;
  1540. }
  1541.  else if(r396empty_or_null_body(C)){
  1542. (/*SFN*/C->_in_line_status)=1;
  1543. }
  1544.  else if(r396value_reader(C)){
  1545. (/*SFN*/C->_in_line_status)=2;
  1546. }
  1547.  else if(r396attribute_reader(C)){
  1548. (/*SFN*/C->_in_line_status)=3;
  1549. }
  1550.  else if(r396result_is_current(C)){
  1551. (/*SFN*/C->_in_line_status)=4;
  1552. }
  1553.  else if(r396direct_call(C)){
  1554. (/*SFN*/C->_in_line_status)=5;
  1555. }
  1556.  else if(r396dca(C)){
  1557. (/*SFN*/C->_in_line_status)=6;
  1558. }
  1559.  else if(r396a_eq_neq(C)){
  1560. (/*SFN*/C->_in_line_status)=7;
  1561. }
  1562.  else if(r396dc_pco1(C)){
  1563. (/*SFN*/C->_in_line_status)=8;
  1564. }
  1565.  else if(r396dc_pco2(C)){
  1566. (/*SFN*/C->_in_line_status)=9;
  1567. }
  1568.  else if(r396direct_cse_call(C)){
  1569. (/*SFN*/C->_in_line_status)=10;
  1570. }
  1571. else{
  1572. (/*SFN*/C->_in_line_status)=-(1);
  1573. R=0;
  1574. }
  1575. /*FI]*/
  1576. }
  1577.  else{R=1;
  1578. }}
  1579. }
  1580. /*FI]*/
  1581. return R;
  1582. }
  1583.  
  1584.  
  1585. T6 r396use_current(T396* C){
  1586. T6 R=0;
  1587. {int z1=(/*RF2*/(C)->_use_current_state/*16*/);
  1588.  
  1589. if((22==z1)){
  1590. R=1;
  1591. }
  1592.  else 
  1593. if((21==z1)){
  1594. }
  1595.  else 
  1596. if((23==z1)){
  1597. (/*SFN*/C->_use_current_state)=24;
  1598. r396compute_use_current(C);
  1599. R=((/*RF2*/(C)->_use_current_state/*16*/))==(22);
  1600. }
  1601.  else {R=1;
  1602. }}
  1603. return R;
  1604. }
  1605.  
  1606.  
  1607. T6 r396value_reader(T396* C){
  1608. T6 R=0;
  1609. T0* _c0=NULL;
  1610. T0* _e=NULL;
  1611. _e=r396body_one_result(C);
  1612. /*[IF*/
  1613. if(((_e)!=((void*)(NULL)))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL)))){
  1614. _c0=_e;
  1615. if(NULL!=(_c0)){
  1616. switch(((T0*)_c0)->id){
  1617. case 134:case 140:case 130:case 135:case 136:
  1618. break;
  1619. default:
  1620. _c0=NULL;
  1621. }
  1622. }/*[IF*/
  1623. if((((_c0)!=((void*)(NULL)))&&(X104is_current(/*SSWARF2*//*X132target*/(/*RF2*/(((T134*)_c0))->_target/*4*/))))&&((X132run_feature(_c0))==((void*)(C)))){
  1624. {T68 se_tmp0;
  1625. r66add_position((*(se_tmp0=X104start_position(_e),&se_tmp0)));
  1626. }
  1627. r396fatal_error(((T0*)ms396_38496));
  1628. }
  1629.  else if(X104is_static(_e)){
  1630. R=1;
  1631. (/*SFN*/C->_static_value_mem)=X104static_value(_e);
  1632. (/*SFN*/C->_is_static_flag)=1;
  1633. }
  1634. /*FI]*/
  1635. }
  1636. /*FI]*/
  1637. return R;
  1638. }
  1639.  
  1640.  
  1641. T6 r396is_static(T396* C){
  1642. T6 R=0;
  1643. /*[IF*/
  1644. if(r396isa_in_line(C)){
  1645. R=(/*RF2*/(C)->_is_static_flag/*64*/);
  1646. }
  1647. /*FI]*/
  1648. return R;
  1649. }
  1650.  
  1651.  
  1652. T6 r396is_exported_in(T396* C,T0* a1){
  1653. T6 R=0;
  1654. R=r99gives_permission_to((T99*)(r396clients(C)),a1);
  1655. return R;
  1656. }
  1657.  
  1658.  
  1659. T0* r396default_rescue_compound(T396* C){
  1660. T0* R=NULL;
  1661. R=r50get_default_rescue((T50*)(r396run_class(C)),(/*RF2*/(C)->_name/*12*/));
  1662. return R;
  1663. }
  1664.  
  1665.  
  1666. T0* r396run_class(T396* C){
  1667. T0* R=NULL;
  1668. R=X52run_class((/*RF2*/(C)->_current_type/*8*/));
  1669. return R;
  1670. }
  1671.  
  1672.  
  1673. void r396fatal_error(T0* a1){
  1674. /*[IRF3.6append*/{T0* b1=a1;
  1675. r7append((T7*)(oBC66explanation),b1);
  1676. }/*]*/
  1677. r66print_as_fatal_error((T66*)(oBC13eh));
  1678. }
  1679.  
  1680.  
  1681. T6 r396attribute_reader(T396* C){
  1682. T6 R=0;
  1683. T0* _rf2=NULL;
  1684. T0* _c0=NULL;
  1685. T0* _e=NULL;
  1686. _e=r396body_one_result(C);
  1687. /*[IF*/
  1688. if(((_e)!=((void*)(NULL)))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL)))){
  1689. _c0=_e;
  1690. if(NULL!=(_c0)){
  1691. switch(((T0*)_c0)->id){
  1692. case 134:case 140:case 130:case 135:case 136:
  1693. break;
  1694. default:
  1695. _c0=NULL;
  1696. }
  1697. }/*[IF*/
  1698. if((_c0)!=((void*)(NULL))){
  1699. /*[IF*/
  1700. if(X104is_current(/*SSWARF2*//*X132target*/(/*RF2*/(((T134*)_c0))->_target/*4*/))){
  1701. _rf2=X132run_feature(_c0);
  1702. if(NULL!=(_rf2)){
  1703. switch(((T0*)_rf2)->id){
  1704. case 345:
  1705. break;
  1706. default:
  1707. _rf2=NULL;
  1708. }
  1709. }/*[IF*/
  1710. if((_rf2)!=((void*)(NULL))){
  1711. R=!(X52is_user_expanded((/*RF2*/(((T345*)_rf2))->_result_type/*28*/)));
  1712. }
  1713. /*FI]*/
  1714. }
  1715. /*FI]*/
  1716. }
  1717. /*FI]*/
  1718. }
  1719. /*FI]*/
  1720. return R;
  1721. }
  1722.  
  1723.  
  1724. T6 r396result_is_current(T396* C){
  1725. T6 R=0;
  1726. T0* _e=NULL;
  1727. _e=r396body_one_result(C);
  1728. /*[IF*/
  1729. if(((_e)!=((void*)(NULL)))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL)))){
  1730. R=X104is_current(_e);
  1731. }
  1732. /*FI]*/
  1733. return R;
  1734. }
  1735.  
  1736.  
  1737. T0* r396stupid_switch(T396* C,T0* a1){
  1738. T0* R=NULL;
  1739. {int z1=(/*RF2*/(C)->_stupid_switch_state/*20*/);
  1740.  
  1741. if((22==z1)){
  1742. R=((T0*)ms396_4200);
  1743. }
  1744.  else 
  1745. if((21==z1)){
  1746. }
  1747.  else 
  1748. if((23==z1)){
  1749. (/*SFN*/C->_stupid_switch_state)=24;
  1750. /*[IRF3.6compute_stupid_switch*/{T396* C1=C;
  1751. T0* b1=a1;
  1752. r396std_compute_stupid_switch(C1,b1);
  1753. }/*]*/
  1754. /*[IF*/
  1755. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(22)){
  1756. R=((T0*)ms396_4200);
  1757. }
  1758. /*FI]*/
  1759. }
  1760.  else {}}
  1761. return R;
  1762. }
  1763.  
  1764.  
  1765. T6 r396direct_call(T396* C){
  1766. T6 R=0;
  1767. T0* _rf4=NULL;
  1768. T0* _args=NULL;
  1769. T0* _c=NULL;
  1770. T0* _e=NULL;
  1771. _e=r396body_one_result(C);
  1772. /*[IF*/
  1773. if((((_e)!=((void*)(NULL)))&&(((/*RF2*/(C)->_arguments/*28*/))==((void*)(NULL))))&&(((/*RF2*/(C)->_local_vars/*40*/))==((void*)(NULL)))){
  1774. _c=_e;
  1775. if(NULL!=(_c)){
  1776. switch(((T0*)_c)->id){
  1777. case 134:case 187:case 120:case 118:case 193:case 192:case 125:case 142:case 140:case 130:case 186:case 135:case 127:case 122:case 189:case 117:case 111:case 124:case 126:case 191:case 190:case 119:case 121:case 128:case 143:case 136:case 123:
  1778. break;
  1779. default:
  1780. _c=NULL;
  1781. }
  1782. }/*[IF*/
  1783. if((_c)!=((void*)(NULL))){
  1784. /*[IF*/
  1785. if(X104is_current(/*SSWARF2*//*X115target*/(/*RF2*/(((T134*)_c))->_target/*4*/))){
  1786. _rf4=X115run_feature(_c);
  1787. if(NULL!=(_rf4)){
  1788. switch(((T0*)_rf4)->id){
  1789. case 396:
  1790. break;
  1791. default:
  1792. _rf4=NULL;
  1793. }
  1794. }/*[IF*/
  1795. if((_rf4)!=((void*)(NULL))){
  1796. _args=X115arguments(_c);
  1797. /*[IF*/
  1798. if((_args)==((void*)(NULL))){
  1799. R=1;
  1800. }
  1801. else{
  1802. R=/*SSFRF4*//*X139is_static*/r139is_static(((T139*)_args));
  1803. }
  1804. /*FI]*/
  1805. }
  1806. /*FI]*/
  1807. }
  1808. /*FI]*/
  1809. }
  1810. /*FI]*/
  1811. }
  1812. /*FI]*/
  1813. return R;
  1814. }
  1815.  
  1816.  
  1817. void r396define_prototype(T396* C){
  1818. T6 _no_check=0;
  1819. T2 _mem_id=0;
  1820. _no_check=r47no_check((T47*)(oBC13run_control));
  1821. /*[IF*/
  1822. if(r47no_check((T47*)(oBC13run_control))){
  1823. /*[IRF3.3reset*/((((T203*)((T203*)(oBC13c_frame_descriptor_local_count))))->_value)=(0);
  1824. /*]*/
  1825. /*[IRF3.3clear*/((((T7*)((T7*)(oBC13c_frame_descriptor_format))))->_count)=(0);
  1826. /*]*/
  1827. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\42'));
  1828. /*[IRF3.3clear*/((((T7*)((T7*)(oBC13c_frame_descriptor_locals))))->_count)=(0);
  1829. /*]*/
  1830. }
  1831. /*FI]*/
  1832. _mem_id=r396id(C);
  1833. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  1834. /*]*/
  1835. /*[IF*/
  1836. if(((/*RF2*/(C)->_result_type/*32*/))==((void*)(NULL))){
  1837. r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  1838. }
  1839. else{
  1840. X52c_type_for_result_in(X52run_type((/*RF2*/(C)->_result_type/*32*/)),oBC334c_code);
  1841. }
  1842. /*FI]*/
  1843. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  1844. r7extend((T7*)(oBC334c_code),((T3)'r'));
  1845. r2append_in(_mem_id,oBC334c_code);
  1846. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),oBC334c_code);
  1847. r7extend((T7*)(oBC334c_code),((T3)'\50'));
  1848. /*[IF*/
  1849. if(_no_check){
  1850. r7append((T7*)(oBC334c_code),((T0*)ms334_56160));
  1851. /*[IF*/
  1852. if((r396use_current(C))||(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL)))){
  1853. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  1854. }
  1855. /*FI]*/
  1856. }
  1857. /*FI]*/
  1858. /*[IF*/
  1859. if(r396use_current(C)){
  1860. X52c_type_for_target_in((/*RF2*/(C)->_current_type/*8*/),oBC334c_code);
  1861. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  1862. r7extend((T7*)(oBC334c_code),((T3)'C'));
  1863. X52c_frame_descriptor((/*RF2*/(C)->_current_type/*8*/));
  1864. /*[IF*/
  1865. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  1866. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  1867. }
  1868. /*FI]*/
  1869. }
  1870. /*FI]*/
  1871. /*[IF*/
  1872. if(((/*RF2*/(C)->_arguments/*28*/))==((void*)(NULL))){
  1873. /*[IF*/
  1874. if(_no_check){
  1875. }
  1876.  else if(!(r396use_current(C))){
  1877. r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  1878. }
  1879. /*FI]*/
  1880. }
  1881. else{
  1882. r178compile_to_c_in((T178*)((/*RF2*/(C)->_arguments/*28*/)),oBC334c_code);
  1883. }
  1884. /*FI]*/
  1885. r7extend((T7*)(oBC334c_code),((T3)'\51'));
  1886. r325put_c_heading((T325*)(oBC13cpp),oBC334c_code);
  1887. /*[IRF3.3swap_on_c*/((((T325*)((T325*)(oBC13cpp))))->_current_out)=(oBC325out_c);
  1888. /*]*/
  1889. }
  1890.  
  1891.  
  1892. void r396c_frame_descriptor(T396* C){
  1893. /*[IF*/
  1894. if(r47no_check((T47*)(oBC13run_control))){
  1895. r7copy((T7*)(oBC334c_code),((T0*)ms334_23340));
  1896. r396c_frame_descriptor_name_in(C,oBC334c_code);
  1897. r325put_extern7((T325*)(oBC13cpp),oBC334c_code);
  1898. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1899. T3 b1=((T3)'\173');
  1900. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1901. }/*]*/
  1902. /*]*/
  1903. r396put_c_name_tag(C);
  1904. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  1905. /*]*/
  1906. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  1907. /*[IF*/
  1908. if(r396use_current(C)){
  1909. r7extend((T7*)(oBC334c_code),((T3)'1'));
  1910. }
  1911. else{
  1912. r7extend((T7*)(oBC334c_code),((T3)'0'));
  1913. }
  1914. /*FI]*/
  1915. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  1916. /*[IRF3.5append_in*/r2append_in(((T2)((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))),oBC334c_code);
  1917. /*]*/
  1918. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  1919. r7append((T7*)(oBC334c_code),oBC13c_frame_descriptor_format);
  1920. r7append((T7*)(oBC334c_code),((T0*)ms334_2226));
  1921. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  1922. /*]*/
  1923. }
  1924. /*FI]*/
  1925. }
  1926.  
  1927.  
  1928. void r396address_of_c_mapping(T396* C){
  1929. /*[IF*/
  1930. if(r47boost((T47*)(oBC13run_control))){
  1931. /*[IF*/
  1932. if(r396isa_in_line(C)){
  1933. r396address_of_c_mapping_wrapper(C);
  1934. }
  1935.  else if(r396use_current(C)){
  1936. r396mapping_name(C);
  1937. }
  1938. else{
  1939. r396address_of_c_mapping_wrapper(C);
  1940. }
  1941. /*FI]*/
  1942. }
  1943. else{
  1944. r396address_of_c_mapping_wrapper(C);
  1945. }
  1946. /*FI]*/
  1947. }
  1948.  
  1949.  
  1950. void r396fe_vffd7(T396* C){
  1951. {T68 se_tmp0;
  1952. r66add_position((*(se_tmp0=X52start_position((/*RF2*/(C)->_result_type/*32*/)),&se_tmp0)));
  1953. }
  1954. r396fatal_error(((T0*)ms334_203069));
  1955. }
  1956.  
  1957.  
  1958. void r396c_frame_descriptor_name_in(T396* C,T0* a1){
  1959. r7extend(((T7*)a1),((T3)'f'));
  1960. r2append_in(r396id(C),a1);
  1961. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),a1);
  1962. }
  1963.  
  1964.  
  1965. void r168prepare_arguments(T168* C,T0* a1){
  1966. T0* _a=NULL;
  1967. /*[IF*/
  1968. if(((/*RF2*/(C)->_arguments/*20*/))!=((void*)(NULL))){
  1969. _a=X139to_runnable((/*RF2*/(C)->_arguments/*20*/),a1);
  1970. /*[IF*/
  1971. if((_a)==((void*)(NULL))){
  1972. {T68 se_tmp0;
  1973. r168error((*(se_tmp0=X139start_position((/*RF2*/(C)->_arguments/*20*/)),&se_tmp0)),((T0*)ms14_14504));
  1974. }
  1975. }
  1976. else{
  1977. (/*SFN*/C->_arguments)=_a;
  1978. }
  1979. /*FI]*/
  1980. /*[IF*/
  1981. if((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0)){
  1982. X139match_with((/*RF2*/(C)->_arguments/*20*/),(/*RF2*/(C)->_run_feature/*24*/),a1);
  1983. }
  1984. /*FI]*/
  1985. }
  1986.  else if(((/*RF2*/((T392*)((/*RF2*/(C)->_run_feature/*24*/)))->_arguments/*28*/))!=((void*)(NULL))){
  1987. {T68 se_tmp0;
  1988. r66add_position((*(se_tmp0=r392start_position((T392*)((/*RF2*/(C)->_run_feature/*24*/))),&se_tmp0)));
  1989. }
  1990. r66add_position((/*RF2*/(C)->_start_position/*4*/));
  1991. r168fatal_error(((T0*)ms167_63456));
  1992. }
  1993. /*FI]*/
  1994. }
  1995.  
  1996.  
  1997. void r168make(T168* C,T68 a1,T0* a2,T0* a3){
  1998. (/*SFN*/C->_start_position)=a1;
  1999. (/*SFN*/C->_parent)=a2;
  2000. (/*SFN*/C->_arguments)=a3;
  2001. }
  2002.  
  2003.  
  2004. void r168fatal_error(T0* a1){
  2005. /*[IRF3.6append*/{T0* b1=a1;
  2006. r7append((T7*)(oBC66explanation),b1);
  2007. }/*]*/
  2008. r66print_as_fatal_error((T66*)(oBC13eh));
  2009. }
  2010.  
  2011.  
  2012. T0* r168precursor_name(T0* a1,T0* a2){
  2013. T0* R=NULL;
  2014. {T394*n=((T394*)malloc(sizeof(*n))/*12*/);
  2015. *n=M394;
  2016. r394refer_to(n,(/*RF2*/((T51*)(/*SSWARF2*//*X90base_class*/(/*RF2*/(((T198*)a2))->_base_class/*4*/)))->_id/*0*/),a1);
  2017. R=((T0*)n);
  2018. }
  2019. return R;
  2020. }
  2021.  
  2022.  
  2023. T0* r168add_comment(T168* C,T0* a1){
  2024. T0* R=NULL;
  2025. /*[IF*/
  2026. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  2027. R=((T0*)(C));
  2028. }
  2029. /*AF*/else{
  2030. {T224*n=((T224*)malloc(sizeof(*n))/*12*/);
  2031. *n=M224;
  2032. r224make(n,(T0*)C,a1);
  2033. R=((T0*)n);
  2034. }
  2035. }
  2036. /*FI]*/
  2037. return R;
  2038. }
  2039.  
  2040.  
  2041. T0* r168super_feature(T168* C,T0* a1){
  2042. T0* R=NULL;
  2043. T0* _pl=NULL;
  2044. T0* _wbc=NULL;
  2045. T0* _e_feature=NULL;
  2046. _e_feature=/*SSWA2*//*X334base_feature*/(/*RF2*/(((T368*)a1))->_base_feature/*24*/);
  2047. _wbc=/*SSWARF2*//*X90base_class*/(/*RF2*/(((T198*)_e_feature))->_base_class/*4*/);
  2048. _pl=(/*RF2*/(((T51*)_wbc))->_parent_list/*34*/);
  2049. /*[IF*/
  2050. if((_pl)==((void*)(NULL))){
  2051. r66add_position((/*RF2*/(C)->_start_position/*4*/));
  2052. r168fatal_error(((T0*)ms167_268167));
  2053. }
  2054. else{
  2055. R=r57precursor_for(((T57*)_pl),(T0*)C,a1);
  2056. }
  2057. /*FI]*/
  2058. return R;
  2059. }
  2060.  
  2061.  
  2062. void r168compile_to_c(T168* C){
  2063. r325push_precursor((T325*)(oBC13cpp),(/*RF2*/(C)->_run_feature/*24*/),(/*RF2*/(C)->_arguments/*20*/));
  2064. /*[IRF3.4mapping_c*/r392default_mapping_procedure((T392*)((/*RF2*/(C)->_run_feature/*24*/)));
  2065. /*]*/
  2066. r325pop((T325*)(oBC13cpp));
  2067. }
  2068.  
  2069.  
  2070. void r168afd_check(T168* C){
  2071. /*[IF*/
  2072. if(((/*RF2*/(C)->_arguments/*20*/))!=((void*)(NULL))){
  2073. /*SSPRF3*//*X139afd_check*/r139afd_check((T139*)((/*RF2*/(C)->_arguments/*20*/)));
  2074. }
  2075. /*FI]*/
  2076. }
  2077.  
  2078.  
  2079. void r168collect_c_tmp(T168* C){
  2080. /*[IF*/
  2081. if(((/*RF2*/(C)->_arguments/*20*/))!=((void*)(NULL))){
  2082. /*SSPRF3*//*X139collect_c_tmp*/r139collect_c_tmp((T139*)((/*RF2*/(C)->_arguments/*20*/)));
  2083. }
  2084. /*FI]*/
  2085. }
  2086.  
  2087.  
  2088. T0* r168to_runnable(T168* C,T0* a1){
  2089. T0* R=NULL;
  2090. T0* _pn=NULL;
  2091. T0* _super=NULL;
  2092. T0* _wrf=NULL;
  2093. /*[IF*/
  2094. if(((/*RF2*/(C)->_current_type/*16*/))==((void*)(NULL))){
  2095. (/*SFN*/C->_current_type)=a1;
  2096. R=((T0*)(C));
  2097. _wrf=r49top_rf((T49*)(oBC13small_eiffel));
  2098. /*[IF*/
  2099. if((X334result_type(_wrf))!=((void*)(NULL))){
  2100. r66add_position((/*RF2*/(C)->_start_position/*4*/));
  2101. r168fatal_error(((T0*)ms168_358643));
  2102. }
  2103. /*FI]*/
  2104. _super=r168super_feature(C,_wrf);
  2105. _pn=r168precursor_name(/*SSWARF2*//*X334name*/(/*RF2*/(((T368*)_wrf))->_name/*12*/),_super);
  2106. {T392*n=((T392*)malloc(sizeof(*n))/*52*/);
  2107. *n=M392;
  2108. r392make(n,a1,_pn,_super);
  2109. (/*SFN*/C->_run_feature)=((T0*)n);
  2110. }
  2111. r168prepare_arguments(C,a1);
  2112. }
  2113. else{
  2114. {T168*n=((T168*)malloc(sizeof(*n))/*28*/);
  2115. *n=M168;
  2116. r168make(n,(/*RF2*/(C)->_start_position/*4*/),(/*RF2*/(C)->_parent/*12*/),(/*RF2*/(C)->_arguments/*20*/));
  2117. R=((T0*)n);
  2118. }
  2119. R=r168to_runnable(((T168*)R),a1);
  2120. }
  2121. /*FI]*/
  2122. return R;
  2123. }
  2124.  
  2125.  
  2126. void r168error(T68 a1,T0* a2){
  2127. r66add_position(a1);
  2128. /*[IRF3.6append*/{T0* b1=a2;
  2129. r7append((T7*)(oBC66explanation),b1);
  2130. }/*]*/
  2131. r66print_as_error((T66*)(oBC13eh));
  2132. }
  2133.  
  2134.  
  2135. void r99make(T99* C,T68 a1,T0* a2){
  2136. (/*SFN*/C->_start_position)=a1;
  2137. (/*SFN*/C->_list)=a2;
  2138. }
  2139.  
  2140.  
  2141. T0* r99merge_with(T99* C,T0* a1){
  2142. T0* R=NULL;
  2143. T68 _sp={NULL,0};
  2144. /*[IF*/
  2145. if(r99gives_permission_to_any(C)){
  2146. R=((T0*)(C));
  2147. }
  2148.  else if(r99gives_permission_to_any(((T99*)a1))){
  2149. R=a1;
  2150. }
  2151. else{
  2152. _sp=(/*RF2*/(C)->_start_position/*0*/);
  2153. /*[IF*/
  2154. if(r68is_unknown(&_sp)){
  2155. _sp=(/*RF2*/(((T99*)a1))->_start_position/*0*/);
  2156. }
  2157. /*FI]*/
  2158. {T99*n=((T99*)malloc(sizeof(*n))/*12*/);
  2159. *n=M99;
  2160. r99merge(n,_sp,(/*RF2*/(C)->_list/*8*/),(/*RF2*/(((T99*)a1))->_list/*8*/));
  2161. R=((T0*)n);
  2162. }
  2163. }
  2164. /*FI]*/
  2165. return R;
  2166. }
  2167.  
  2168.  
  2169. void r99merge(T99* C,T68 a1,T0* a2,T0* a3){
  2170. (/*SFN*/C->_start_position)=a1;
  2171. {T194*n=((T194*)malloc(sizeof(*n))/*8*/);
  2172. *n=M194;
  2173. r194merge(n,a2,a3);
  2174. (/*SFN*/C->_list)=((T0*)n);
  2175. }
  2176. }
  2177.  
  2178.  
  2179. T6 r99gives_permission_to_any(T99* C){
  2180. T6 R=0;
  2181. /*[IF*/
  2182. if(r99is_omitted(C)){
  2183. R=1;
  2184. }
  2185.  else if(((/*RF2*/(C)->_list/*8*/))==((void*)(NULL))){
  2186. }
  2187. else{
  2188. R=r194gives_permission_to_any((T194*)((/*RF2*/(C)->_list/*8*/)));
  2189. }
  2190. /*FI]*/
  2191. r99gives_permission_error(C,R,((T0*)ms15_696));
  2192. return R;
  2193. }
  2194.  
  2195.  
  2196. T6 r99gives_permission_to(T99* C,T0* a1){
  2197. T6 R=0;
  2198. /*[IF*/
  2199. if(r99is_omitted(C)){
  2200. R=1;
  2201. }
  2202.  else if(((/*RF2*/(C)->_list/*8*/))==((void*)(NULL))){
  2203. }
  2204. else{
  2205. R=r194gives_permission_to((T194*)((/*RF2*/(C)->_list/*8*/)),a1);
  2206. }
  2207. /*FI]*/
  2208. r99gives_permission_error(C,R,(/*RF2*/(((T61*)a1))->_to_string/*8*/));
  2209. return R;
  2210. }
  2211.  
  2212.  
  2213. T0* r99append(T99* C,T0* a1){
  2214. T0* R=NULL;
  2215. /*[IF*/
  2216. if(((C)==((void*)(a1)))||(r99is_omitted(C))){
  2217. R=((T0*)(C));
  2218. }
  2219. else{
  2220. /*[IF*/
  2221. if(r99gives_permission_to_any(C)){
  2222. R=((T0*)(C));
  2223. }
  2224. else{
  2225. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  2226. /*]*/
  2227. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  2228. /*]*/
  2229. /*]*/
  2230. /*[IF*/
  2231. if(r99is_omitted(((T99*)a1))){
  2232. R=a1;
  2233. }
  2234.  else if(r99gives_permission_to_any(((T99*)a1))){
  2235. R=a1;
  2236. }
  2237. else{
  2238. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  2239. /*]*/
  2240. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  2241. /*]*/
  2242. /*]*/
  2243. {T99*n=((T99*)malloc(sizeof(*n))/*12*/);
  2244. *n=M99;
  2245. r99merge(n,(/*RF2*/(C)->_start_position/*0*/),(/*RF2*/(C)->_list/*8*/),(/*RF2*/(((T99*)a1))->_list/*8*/));
  2246. R=((T0*)n);
  2247. }
  2248. }
  2249. /*FI]*/
  2250. }
  2251. /*FI]*/
  2252. }
  2253. /*FI]*/
  2254. return R;
  2255. }
  2256.  
  2257.  
  2258. T6 r99is_omitted(T99* C){
  2259. T6 R=0;
  2260. R=r68is_unknown(&((/*RF2*/(C)->_start_position/*0*/)));
  2261. return R;
  2262. }
  2263.  
  2264.  
  2265. void r99vape_check(T99* C,T68 a1,T0* a2){
  2266. T0* _cn=NULL;
  2267. T0* _caller=NULL;
  2268. T2 _i=0;
  2269. T6 _vape=0;
  2270. /*[IF*/
  2271. if(r99is_omitted(C)){
  2272. _vape=r99gives_permission_to_any(((T99*)a2));
  2273. }
  2274.  else if(((/*RF2*/(C)->_list/*8*/))==((void*)(NULL))){
  2275. _vape=1;
  2276. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  2277. /*]*/
  2278. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  2279. /*]*/
  2280. /*]*/
  2281. }
  2282. else{
  2283. _vape=1;
  2284. _i=r194count((T194*)((/*RF2*/(C)->_list/*8*/)));
  2285. while (!((!(_vape))||((_i)==(0))))
  2286. {
  2287. _cn=r194item((T194*)((/*RF2*/(C)->_list/*8*/)),_i);
  2288. _vape=r99gives_permission_to(((T99*)a2),_cn);
  2289. _i=(_i)-(1);
  2290. }
  2291. }
  2292. /*FI]*/
  2293. /*[IF*/
  2294. if(!(_vape)){
  2295. /*[IF*/
  2296. if((_cn)!=((void*)(NULL))){
  2297. r66add_position((/*RF2*/(((T61*)_cn))->_start_position/*0*/));
  2298. }
  2299. else{
  2300. r66add_position((/*RF2*/(C)->_start_position/*0*/));
  2301. }
  2302. /*FI]*/
  2303. r66add_position(a1);
  2304. /*[IRF3.6append*/{T0* b1=((T0*)ms99_66792);
  2305. r7append((T7*)(oBC66explanation),b1);
  2306. }/*]*/
  2307. r66print_as_error((T66*)(oBC13eh));
  2308. r66add_position(a1);
  2309. r66add_position((/*RF2*/(((T99*)a2))->_start_position/*0*/));
  2310. _caller=r49top_rf((T49*)(oBC13small_eiffel));
  2311. /*[IRF3.6append*/{T0* b1=X52run_time_mark(/*SSWARF2*//*X334current_type*/(/*RF2*/(((T368*)_caller))->_current_type/*8*/));
  2312. r7append((T7*)(oBC66explanation),b1);
  2313. }/*]*/
  2314. /*[IRF3.6append*/{T0* b1=((T0*)ms99_500000);
  2315. r7append((T7*)(oBC66explanation),b1);
  2316. }/*]*/
  2317. r66print_as_error((T66*)(oBC13eh));
  2318. /*[IRF3.6append*/{T0* b1=((T0*)ms99_43392);
  2319. r7append((T7*)(oBC66explanation),b1);
  2320. }/*]*/
  2321. /*[IF*/
  2322. if((_cn)!=((void*)(NULL))){
  2323. r66add_position((/*RF2*/(((T61*)_cn))->_start_position/*0*/));
  2324. }
  2325. else{
  2326. r66add_position((/*RF2*/(C)->_start_position/*0*/));
  2327. }
  2328. /*FI]*/
  2329. {T68 se_tmp0;
  2330. r66add_position((*(se_tmp0=X334start_position(_caller),&se_tmp0)));
  2331. }
  2332. /*[IRF3.6append*/{T0* b1=X82to_string(/*SSWARF2*//*X334name*/(/*RF2*/(((T368*)_caller))->_name/*12*/));
  2333. r7append((T7*)(oBC66explanation),b1);
  2334. }/*]*/
  2335. r66print_as_fatal_error((T66*)(oBC13eh));
  2336. }
  2337. /*FI]*/
  2338. }
  2339.  
  2340.  
  2341. void r99gives_permission_error(T99* C,T6 a1,T0* a2){
  2342. /*[IF*/
  2343. if(a1){
  2344. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  2345. /*]*/
  2346. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  2347. /*]*/
  2348. /*]*/
  2349. }
  2350. else{
  2351. /*[IF*/
  2352. if(r68is_unknown(&((/*RF2*/(C)->_start_position/*0*/)))){
  2353. /*[IF*/
  2354. if(((/*RF2*/(C)->_list/*8*/))!=((void*)(NULL))){
  2355. r66add_position((/*RF2*/((T61*)(r194item((T194*)((/*RF2*/(C)->_list/*8*/)),1)))->_start_position/*0*/));
  2356. }
  2357. /*FI]*/
  2358. }
  2359. else{
  2360. r66add_position((/*RF2*/(C)->_start_position/*0*/));
  2361. }
  2362. /*FI]*/
  2363. /*[IRF3.6append*/{T0* b1=a2;
  2364. r7append((T7*)(oBC66explanation),b1);
  2365. }/*]*/
  2366. /*[IRF3.6append*/{T0* b1=((T0*)ms99_58386);
  2367. r7append((T7*)(oBC66explanation),b1);
  2368. }/*]*/
  2369. }
  2370. /*FI]*/
  2371. }
  2372.  
  2373.  
  2374. T0* r304try_to_undefine_aux(T304* C,T0* a1,T0* a2){
  2375. T0* R=NULL;
  2376. {T287*n=((T287*)malloc(sizeof(*n))/*44*/);
  2377. *n=M287;
  2378. r287from_effective(n,a1,(/*RF2*/(C)->_arguments/*20*/),(/*RF2*/(C)->_result_type/*56*/),(/*RF2*/(C)->_require_assertion/*28*/),(/*RF2*/(C)->_ensure_assertion/*32*/),a2);
  2379. R=((T0*)n);
  2380. }
  2381. return R;
  2382. }
  2383.  
  2384.  
  2385. T0* r304try_to_undefine(T304* C,T0* a1,T0* a2){
  2386. T0* R=NULL;
  2387. T0* _fn2=NULL;
  2388. {T68 se_tmp0;
  2389. r66add_position((*(se_tmp0=X82start_position(a1),&se_tmp0)));
  2390. }
  2391. _fn2=r83feature_name((T83*)((/*RF2*/(C)->_names/*8*/)),X82to_key(a1));
  2392. /*[IF*/
  2393. if((_fn2)!=((void*)(NULL))){
  2394. X82undefine_in(_fn2,a2);
  2395. }
  2396. /*FI]*/
  2397. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  2398. /*]*/
  2399. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  2400. /*]*/
  2401. /*]*/
  2402. R=r304try_to_undefine_aux(C,a1,a2);
  2403. /*[IF*/
  2404. if((R)!=((void*)(NULL))){
  2405. X284set_clients(R,(/*RF2*/(C)->_clients/*16*/));
  2406. r304merge_header_comments(C,R);
  2407. }
  2408. else{
  2409. r51fatal_undefine(((T51*)a2),a1);
  2410. }
  2411. /*FI]*/
  2412. return R;
  2413. }
  2414.  
  2415.  
  2416. void r304check_obsolete(T304* C,T68 a1){
  2417. /*[IF*/
  2418. if(((/*RF2*/(C)->_obsolete_mark/*24*/))!=((void*)(NULL))){
  2419. /*[IF*/
  2420. if(!((/*RF2*/((T49*)(oBC13small_eiffel))->_short_flag/*5*/))){
  2421. r66add_position(a1);
  2422. /*[IRF3.6append*/{T0* b1=((T0*)ms90_19170);
  2423. r7append((T7*)(oBC66explanation),b1);
  2424. }/*]*/
  2425. /*[IRF3.6append*/{T0* b1=(/*RF2*/((T161*)((/*RF2*/(C)->_obsolete_mark/*24*/)))->_to_string/*12*/);
  2426. r7append((T7*)(oBC66explanation),b1);
  2427. }/*]*/
  2428. {T68 se_tmp0;
  2429. r66add_position((*(se_tmp0=r304start_position(C),&se_tmp0)));
  2430. }
  2431. r66print_as_warning((T66*)(oBC13eh));
  2432. }
  2433. /*FI]*/
  2434. }
  2435. /*FI]*/
  2436. }
  2437.  
  2438.  
  2439. T0* r304to_run_feature(T304* C,T0* a1,T0* a2){
  2440. T0* R=NULL;
  2441. {T396*n=((T396*)malloc(sizeof(*n))/*65*/);
  2442. *n=M396;
  2443. r396make(n,a1,a2,(T0*)C);
  2444. R=((T0*)n);
  2445. }
  2446. return R;
  2447. }
  2448.  
  2449.  
  2450. void r304error(T68 a1,T0* a2){
  2451. r66add_position(a1);
  2452. /*[IRF3.6append*/{T0* b1=a2;
  2453. r7append((T7*)(oBC66explanation),b1);
  2454. }/*]*/
  2455. r66print_as_error((T66*)(oBC13eh));
  2456. }
  2457.  
  2458.  
  2459. T6 r304is_not_mergeable_with(T304* C,T0* a1){
  2460. T6 R=0;
  2461. /*[IF*/
  2462. if(((/*RF2*/(C)->_result_type/*56*/))==((void*)(NULL))){
  2463. R=(X90result_type(a1))!=((void*)(NULL));
  2464. }
  2465. else{
  2466. R=(X90result_type(a1))==((void*)(NULL));
  2467. }
  2468. /*FI]*/
  2469. /*[IF*/
  2470. if(R){
  2471. /*[IRF3.6append*/{T0* b1=((T0*)ms90_64152);
  2472. r7append((T7*)(oBC66explanation),b1);
  2473. }/*]*/
  2474. }
  2475. else{
  2476. /*[IF*/
  2477. if(((/*RF2*/(C)->_arguments/*20*/))==((void*)(NULL))){
  2478. R=(X90arguments(a1))!=((void*)(NULL));
  2479. }
  2480. else{
  2481. R=(X90arguments(a1))==((void*)(NULL));
  2482. }
  2483. /*FI]*/
  2484. /*[IF*/
  2485. if(R){
  2486. /*[IRF3.6append*/{T0* b1=((T0*)ms90_82612);
  2487. r7append((T7*)(oBC66explanation),b1);
  2488. }/*]*/
  2489. }
  2490.  else if(((/*RF2*/(C)->_arguments/*20*/))==((void*)(NULL))){
  2491. }
  2492.  else if((/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)((/*RF2*/(C)->_arguments/*20*/)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)!=(/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)(X90arguments(a1)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)){
  2493. /*[IRF3.6append*/{T0* b1=((T0*)ms90_66660);
  2494. r7append((T7*)(oBC66explanation),b1);
  2495. }/*]*/
  2496. R=1;
  2497. }
  2498. /*FI]*/
  2499. }
  2500. /*FI]*/
  2501. r304merge_header_comments(C,a1);
  2502. return R;
  2503. }
  2504.  
  2505.  
  2506. void r304set_header_comment(T304* C,T0* a1){
  2507. /*[IF*/
  2508. if(((a1)!=((void*)(NULL)))&&((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)>(1))){
  2509. (/*SFN*/C->_end_comment)=a1;
  2510. }
  2511. /*FI]*/
  2512. }
  2513.  
  2514.  
  2515. void r304make_routine(T304* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
  2516. /*[IRF3.3make_e_feature*/((((T304*)(C)))->_names)=(a1);
  2517. /*]*/
  2518. (/*SFN*/C->_header_comment)=a4;
  2519. (/*SFN*/C->_arguments)=a2;
  2520. (/*SFN*/C->_obsolete_mark)=a3;
  2521. (/*SFN*/C->_require_assertion)=a5;
  2522. }
  2523.  
  2524.  
  2525. void r304make(T304* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7,T0* a8){
  2526. r304make_effective_routine(C,a1,a2,a4,a5,a6,a7,a8);
  2527. (/*SFN*/C->_result_type)=a3;
  2528. }
  2529.  
  2530.  
  2531. void r304add_into(T304* C,T0* a1){
  2532. T0* _fn=NULL;
  2533. T2 _i=0;
  2534. {T68 se_tmp0;
  2535. (/*SFN*/C->_base_class)=(/*RF2*/((*(se_tmp0=X82start_position(r83item((T83*)((/*RF2*/(C)->_names/*8*/)),1)),&se_tmp0)))._base_class/*0*/);
  2536. }
  2537. _i=1;
  2538. while (!((_i)>(r83count((T83*)((/*RF2*/(C)->_names/*8*/))))))
  2539. {
  2540. _fn=r83item((T83*)((/*RF2*/(C)->_names/*8*/)),_i);
  2541. /*[IF*/
  2542. if(r91has(((T91*)a1),X82to_key(_fn))){
  2543. _fn=/*SSFRF4*//*X90first_name*//*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/((T198*)(r91at(((T91*)a1),X82to_key(_fn))))->_names/*8*/))))->_first/*0*/)/*)*/;
  2544. {T68 se_tmp0;
  2545. r66add_position((*(se_tmp0=X82start_position(_fn),&se_tmp0)));
  2546. }
  2547. {T68 se_tmp0;
  2548. r66add_position((*(se_tmp0=X82start_position(r83item((T83*)((/*RF2*/(C)->_names/*8*/)),_i)),&se_tmp0)));
  2549. }
  2550. /*[IRF3.6append*/{T0* b1=((T0*)ms90_41470);
  2551. r7append((T7*)(oBC66explanation),b1);
  2552. }/*]*/
  2553. /*[IRF3.6append*/{T0* b1=X82to_string(_fn);
  2554. r7append((T7*)(oBC66explanation),b1);
  2555. }/*]*/
  2556. /*[IRF3.6append*/{T0* b1=((T0*)ms14_46);
  2557. r7append((T7*)(oBC66explanation),b1);
  2558. }/*]*/
  2559. r66print_as_error((T66*)(oBC13eh));
  2560. }
  2561. else{
  2562. r91put(((T91*)a1),(T0*)C,X82to_key(_fn));
  2563. }
  2564. /*FI]*/
  2565. _i=(_i)+(1);
  2566. }
  2567. }
  2568.  
  2569.  
  2570. T6 r304can_hide(T304* C,T0* a1,T0* a2){
  2571. T6 R=0;
  2572. /*[IF*/
  2573. if(((/*RF2*/(C)->_result_type/*56*/))!=((void*)(X90result_type(a1)))){
  2574. /*[IF*/
  2575. if((((/*RF2*/(C)->_result_type/*56*/))==((void*)(NULL)))||((X90result_type(a1))==((void*)(NULL)))){
  2576. {T68 se_tmp0;
  2577. r66add_position((*(se_tmp0=X90start_position(a1),&se_tmp0)));
  2578. }
  2579. {T68 se_tmp0;
  2580. r304error((*(se_tmp0=r304start_position(C),&se_tmp0)),((T0*)ms90_64152));
  2581. }
  2582. }
  2583. /*FI]*/
  2584. }
  2585. /*FI]*/
  2586. /*[IF*/
  2587. if(((/*RF2*/(C)->_arguments/*20*/))!=((void*)(X90arguments(a1)))){
  2588. /*[IF*/
  2589. if((((/*RF2*/(C)->_arguments/*20*/))==((void*)(NULL)))||((X90arguments(a1))==((void*)(NULL)))){
  2590. {T68 se_tmp0;
  2591. r66add_position((*(se_tmp0=X90start_position(a1),&se_tmp0)));
  2592. }
  2593. {T68 se_tmp0;
  2594. r304error((*(se_tmp0=r304start_position(C),&se_tmp0)),((T0*)ms90_82612));
  2595. }
  2596. }
  2597.  else if((/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)((/*RF2*/(C)->_arguments/*20*/)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)!=(/*(IRF4.6count*/(/*RF2*/(((T182*)((/*RF2*/((T178*)(X90arguments(a1)))->_flat_list/*8*/))))->_upper/*12*/)/*)*/)){
  2598. {T68 se_tmp0;
  2599. r66add_position((*(se_tmp0=X90start_position(a1),&se_tmp0)));
  2600. }
  2601. {T68 se_tmp0;
  2602. r304error((*(se_tmp0=r304start_position(C),&se_tmp0)),((T0*)ms90_66660));
  2603. }
  2604. }
  2605. /*FI]*/
  2606. }
  2607. /*FI]*/
  2608. /*[IF*/
  2609. if((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0)){
  2610. /*[IF*/
  2611. if(((/*RF2*/(C)->_result_type/*56*/))!=((void*)(NULL))){
  2612. /*[IF*/
  2613. if(!(X52is_a_in((/*RF2*/(C)->_result_type/*56*/),X90result_type(a1),a2))){
  2614. /*[IRF3.6append*/{T0* b1=((T0*)ms90_51136);
  2615. r7append((T7*)(oBC66explanation),b1);
  2616. }/*]*/
  2617. /*[IRF3.6append*/{T0* b1=X52run_time_mark((/*RF2*/(((T50*)a2))->_current_type/*0*/));
  2618. r7append((T7*)(oBC66explanation),b1);
  2619. }/*]*/
  2620. /*[IRF3.6append*/{T0* b1=((T0*)ms14_46);
  2621. r7append((T7*)(oBC66explanation),b1);
  2622. }/*]*/
  2623. r66print_as_error((T66*)(oBC13eh));
  2624. }
  2625. /*FI]*/
  2626. }
  2627. /*FI]*/
  2628. }
  2629. /*FI]*/
  2630. /*[IF*/
  2631. if((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0)){
  2632. /*[IF*/
  2633. if(((/*RF2*/(C)->_arguments/*20*/))!=((void*)(NULL))){
  2634. /*[IF*/
  2635. if(!(r178is_a_in((T178*)((/*RF2*/(C)->_arguments/*20*/)),X90arguments(a1),a2))){
  2636. {T68 se_tmp0;
  2637. r66add_position((*(se_tmp0=X90start_position(a1),&se_tmp0)));
  2638. }
  2639. {T68 se_tmp0;
  2640. r66add_position((*(se_tmp0=r304start_position(C),&se_tmp0)));
  2641. }
  2642. /*[IRF3.6append*/{T0* b1=((T0*)ms90_51136);
  2643. r7append((T7*)(oBC66explanation),b1);
  2644. }/*]*/
  2645. /*[IRF3.6append*/{T0* b1=X52run_time_mark((/*RF2*/(((T50*)a2))->_current_type/*0*/));
  2646. r7append((T7*)(oBC66explanation),b1);
  2647. }/*]*/
  2648. /*[IRF3.6append*/{T0* b1=((T0*)ms14_46);
  2649. r7append((T7*)(oBC66explanation),b1);
  2650. }/*]*/
  2651. r66print_as_error((T66*)(oBC13eh));
  2652. }
  2653. /*FI]*/
  2654. }
  2655. /*FI]*/
  2656. }
  2657. /*FI]*/
  2658. R=(/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0);
  2659. /*[IF*/
  2660. if(R){
  2661. r304merge_header_comments(C,a1);
  2662. }
  2663. /*FI]*/
  2664. return R;
  2665. }
  2666.  
  2667.  
  2668. void r304merge_header_comments(T304* C,T0* a1){
  2669. /*[IF*/
  2670. if((/*RF2*/((T49*)(oBC13small_eiffel))->_short_flag/*5*/)){
  2671. /*[IF*/
  2672. if(((/*RF2*/(C)->_header_comment/*12*/))==((void*)(NULL))){
  2673. (/*SFN*/C->_header_comment)=/*SSWARF2*//*X90header_comment*/(/*RF2*/(((T198*)a1))->_header_comment/*12*/);
  2674. }
  2675.  else if((/*SSWARF2*//*X90header_comment*/(/*RF2*/(((T198*)a1))->_header_comment/*12*/))==((void*)(NULL))){
  2676. X90set_header_comment(a1,(/*RF2*/(C)->_header_comment/*12*/));
  2677. }
  2678. /*FI]*/
  2679. }
  2680. /*FI]*/
  2681. }
  2682.  
  2683.  
  2684. void r304make_effective_routine(T304* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
  2685. r304make_routine(C,a1,a2,a3,a4,a5);
  2686. (/*SFN*/C->_local_vars)=a6;
  2687. (/*SFN*/C->_routine_body)=a7;
  2688. (/*SFN*/C->_use_current_state)=9;
  2689. }
  2690.  
  2691.  
  2692. T68 r304start_position(T304* C){
  2693. T68 R={NULL,0};
  2694. {T68 se_tmp0;
  2695. R=(*(se_tmp0=X82start_position(/*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/(C)->_names/*8*/))))->_first/*0*/)/*)*/),&se_tmp0));
  2696. }
  2697. return R;
  2698. }
  2699.  
  2700.  
  2701. void r185compile_to_c_old(T185* C){
  2702. T0* _t=NULL;
  2703. _t=X52run_type(r185result_type(C));
  2704. r7copy((T7*)(oBC185tmp_string),r185local_c_name(C));
  2705. r7extend((T7*)(oBC185tmp_string),((T3)'\75'));
  2706. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC185tmp_string);
  2707. /*]*/
  2708. X104mapping_c_arg((/*RF2*/(C)->_expression/*4*/),_t);
  2709. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  2710. /*]*/
  2711. }
  2712. T0*oBC185tmp_string=NULL;
  2713.  
  2714.  
  2715. T0* r185add_comment(T185* C,T0* a1){
  2716. T0* R=NULL;
  2717. /*[IF*/
  2718. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  2719. R=((T0*)(C));
  2720. }
  2721. else{
  2722. {T229*n=((T229*)malloc(sizeof(*n))/*12*/);
  2723. *n=M229;
  2724. r229make(n,(T0*)C,a1);
  2725. R=((T0*)n);
  2726. }
  2727. }
  2728. /*FI]*/
  2729. return R;
  2730. }
  2731.  
  2732.  
  2733. void r185afd_check(T185* C){
  2734. X104afd_check((/*RF2*/(C)->_expression/*4*/));
  2735. }
  2736.  
  2737.  
  2738. void r185c_declare_for_old(T185* C){
  2739. T68 _p={NULL,0};
  2740. T0* _name=NULL;
  2741. T0* _t=NULL;
  2742. _name=r185local_c_name(C);
  2743. _t=X52run_type(r185result_type(C));
  2744. /*[IRF3.3clear*/((((T7*)((T7*)(oBC185tmp_string))))->_count)=(0);
  2745. /*]*/
  2746. X52c_type_for_argument_in(_t,oBC185tmp_string);
  2747. r7extend((T7*)(oBC185tmp_string),((T3)'\40'));
  2748. r7append((T7*)(oBC185tmp_string),_name);
  2749. r7extend((T7*)(oBC185tmp_string),((T3)'\75'));
  2750. X52c_initialize_in(_t,oBC185tmp_string);
  2751. r7append((T7*)(oBC185tmp_string),((T0*)ms14_138));
  2752. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC185tmp_string);
  2753. /*]*/
  2754. /*[IF*/
  2755. if(r47no_check((T47*)(oBC13run_control))){
  2756. r7append((T7*)(oBC13c_frame_descriptor_locals),((T0*)ms185_7344));
  2757. r7append((T7*)(oBC13c_frame_descriptor_locals),_name);
  2758. r7extend((T7*)(oBC13c_frame_descriptor_locals),((T3)'\54'));
  2759. r203increment((T203*)(oBC13c_frame_descriptor_local_count));
  2760. {T68 se_tmp0;
  2761. _p=(*(se_tmp0=r185start_position(C),&se_tmp0));
  2762. }
  2763. r7append((T7*)(oBC13c_frame_descriptor_format),((T0*)ms185_2295));
  2764. r2append_in(r68line(&_p),oBC13c_frame_descriptor_format);
  2765. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'c'));
  2766. r2append_in(r68column(&_p),oBC13c_frame_descriptor_format);
  2767. r7append((T7*)(oBC13c_frame_descriptor_format),(/*RF2*/((T61*)(r68base_class_name(&_p)))->_to_string/*8*/));
  2768. X52c_frame_descriptor(_t);
  2769. }
  2770. /*FI]*/
  2771. }
  2772.  
  2773.  
  2774. T6 r185use_current(T185* C){
  2775. T6 R=0;
  2776. R=X104use_current((/*RF2*/(C)->_expression/*4*/));
  2777. return R;
  2778. }
  2779.  
  2780.  
  2781. T0* r185to_runnable(T185* C,T0* a1){
  2782. T0* R=NULL;
  2783. T0* _exp=NULL;
  2784. /*[IF*/
  2785. if(((/*RF2*/(C)->_current_type/*8*/))==((void*)(NULL))){
  2786. (/*SFN*/C->_current_type)=a1;
  2787. _exp=X104to_runnable((/*RF2*/(C)->_expression/*4*/),a1);
  2788. /*[IF*/
  2789. if((_exp)==((void*)(NULL))){
  2790. {T68 se_tmp0;
  2791. r185error((*(se_tmp0=r185start_position(C),&se_tmp0)),((T0*)ms185_24320));
  2792. }
  2793. }
  2794. else{
  2795. (/*SFN*/C->_expression)=_exp;
  2796. }
  2797. /*FI]*/
  2798. R=((T0*)(C));
  2799. }
  2800. else{
  2801. {T185*n=((T185*)malloc(sizeof(*n))/*16*/);
  2802. *n=M185;
  2803. /*[IRF3.3make*/((((T185*)(n)))->_expression)=((/*RF2*/(C)->_expression/*4*/));
  2804. /*]*/
  2805. R=((T0*)n);
  2806. }
  2807. R=r185to_runnable(((T185*)R),a1);
  2808. }
  2809. /*FI]*/
  2810. return R;
  2811. }
  2812.  
  2813.  
  2814. T2 r185to_integer(T185* C){
  2815. T2 R=0;
  2816. {T68 se_tmp0;
  2817. r185error((*(se_tmp0=r185start_position(C),&se_tmp0)),((T0*)ms14_45441));
  2818. }
  2819. return R;
  2820. }
  2821.  
  2822.  
  2823. void r185error(T68 a1,T0* a2){
  2824. r66add_position(a1);
  2825. /*[IRF3.6append*/{T0* b1=a2;
  2826. r7append((T7*)(oBC66explanation),b1);
  2827. }/*]*/
  2828. r66print_as_error((T66*)(oBC13eh));
  2829. }
  2830.  
  2831.  
  2832. T0* r185local_c_name(T185* C){
  2833. T0* R=NULL;
  2834. /*[IF*/
  2835. if(((/*RF2*/(C)->_local_c_name_memory/*12*/))==((void*)(NULL))){
  2836. /*[IRF3.3clear*/((((T7*)((T7*)(oBC185tmp_string))))->_count)=(0);
  2837. /*]*/
  2838. r7extend((T7*)(oBC185tmp_string),((T3)'o'));
  2839. {T68 se_tmp0;
  2840. r2append_in((/*RF2*/((T51*)((/*RF2*/((*(se_tmp0=r185start_position(C),&se_tmp0)))._base_class/*0*/)))->_id/*0*/),oBC185tmp_string);
  2841. }
  2842. r7extend((T7*)(oBC185tmp_string),((T3)'\137'));
  2843. {T68 se_tmp0;
  2844. r2append_in(r68line(&((*(se_tmp0=r185start_position(C),&se_tmp0)))),oBC185tmp_string);
  2845. }
  2846. r7extend((T7*)(oBC185tmp_string),((T3)'\137'));
  2847. {T68 se_tmp0;
  2848. r2append_in(r68column(&((*(se_tmp0=r185start_position(C),&se_tmp0)))),oBC185tmp_string);
  2849. }
  2850. (/*SFN*/C->_local_c_name_memory)=r7twin((T7*)(oBC185tmp_string));
  2851. }
  2852. /*FI]*/
  2853. R=(/*RF2*/(C)->_local_c_name_memory/*12*/);
  2854. return R;
  2855. }
  2856.  
  2857.  
  2858. T0* r185result_type(T185* C){
  2859. T0* R=NULL;
  2860. R=X104result_type((/*RF2*/(C)->_expression/*4*/));
  2861. return R;
  2862. }
  2863.  
  2864.  
  2865. T0* r185static_result_base_class(T185* C){
  2866. T0* R=NULL;
  2867. R=X104static_result_base_class((/*RF2*/(C)->_expression/*4*/));
  2868. return R;
  2869. }
  2870.  
  2871.  
  2872. void r185assertion_check(T185* C,T3 a1){
  2873. /*[IF*/
  2874. if(((/*RF2*/((T400*)(oBC185vaol_check_memory))->_item/*0*/))==((void*)(NULL))){
  2875. /*[IRF3.3set_item*/((((T400*)((T400*)(oBC185vaol_check_memory))))->_item)=((T0*)C);
  2876. /*]*/
  2877. }
  2878. else{
  2879. {T68 se_tmp0;
  2880. r66add_position((*(se_tmp0=r185start_position((T185*)((/*RF2*/((T400*)(oBC185vaol_check_memory))->_item/*0*/))),&se_tmp0)));
  2881. }
  2882. /*[IRF3.6append*/{T0* b1=((T0*)ms185_153435);
  2883. r7append((T7*)(oBC66explanation),b1);
  2884. }/*]*/
  2885. r66print_as_fatal_error((T66*)(oBC13eh));
  2886. }
  2887. /*FI]*/
  2888. X104assertion_check((/*RF2*/(C)->_expression/*4*/),a1);
  2889. /*[IRF3.3clear*/{T0* _default_item=NULL;
  2890. ((((T400*)((T400*)(oBC185vaol_check_memory))))->_item)=(_default_item);
  2891. }/*]*/
  2892. }
  2893. T0*oBC185vaol_check_memory=NULL;
  2894.  
  2895.  
  2896. T68 r185start_position(T185* C){
  2897. T68 R={NULL,0};
  2898. {T68 se_tmp0;
  2899. R=(*(se_tmp0=X104start_position((/*RF2*/(C)->_expression/*4*/)),&se_tmp0));
  2900. }
  2901. return R;
  2902. }
  2903.  
  2904.  
  2905. void r85make(T85* C,T0* a1){
  2906. {T88*n=((T88*)malloc(sizeof(*n))/*16*/);
  2907. *n=M88;
  2908. r88with_capacity(n,4,1);
  2909. (/*SFN*/C->_list)=((T0*)n);
  2910. }
  2911. r88add_last((T88*)((/*RF2*/(C)->_list/*0*/)),a1);
  2912. }
  2913.  
  2914.  
  2915. void r85fatal_error(T0* a1){
  2916. /*[IRF3.6append*/{T0* b1=a1;
  2917. r7append((T7*)(oBC66explanation),b1);
  2918. }/*]*/
  2919. r66print_as_fatal_error((T66*)(oBC13eh));
  2920. }
  2921.  
  2922.  
  2923. T0* r85name_in_child(T85* C,T0* a1){
  2924. T0* R=NULL;
  2925. T6 _no_longer_exists=0;
  2926. T0* _fn_to_key=NULL;
  2927. T0* _rp=NULL;
  2928. T2 _i=0;
  2929. _fn_to_key=X82to_key(a1);
  2930. R=a1;
  2931. _i=(/*RF2*/((T88*)((/*RF2*/(C)->_list/*0*/)))->_upper/*8*/);
  2932. while (!((_i)==(0)))
  2933. {
  2934. _rp=r88item((T88*)((/*RF2*/(C)->_list/*0*/)),_i);
  2935. /*[IF*/
  2936. if((X82to_key((/*RF2*/(((T87*)_rp))->_old_name/*4*/)))==((void*)(_fn_to_key))){
  2937. R=(/*RF2*/(((T87*)_rp))->_new_name/*0*/);
  2938. }
  2939.  else if((X82to_key((/*RF2*/(((T87*)_rp))->_new_name/*0*/)))==((void*)(_fn_to_key))){
  2940. _no_longer_exists=1;
  2941. }
  2942. /*FI]*/
  2943. _i=(_i)-(1);
  2944. }
  2945. /*[IF*/
  2946. if((_no_longer_exists)&&((R)==((void*)(a1)))){
  2947. R=NULL;
  2948. }
  2949. /*FI]*/
  2950. return R;
  2951. }
  2952.  
  2953.  
  2954. T0* r85name_in_parent(T85* C,T0* a1){
  2955. T0* R=NULL;
  2956. T6 _no_longer_exists=0;
  2957. T0* _fn_to_key=NULL;
  2958. T0* _rp=NULL;
  2959. T2 _i=0;
  2960. _fn_to_key=X82to_key(a1);
  2961. R=a1;
  2962. _i=(/*RF2*/((T88*)((/*RF2*/(C)->_list/*0*/)))->_upper/*8*/);
  2963. while (!((_i)==(0)))
  2964. {
  2965. _rp=r88item((T88*)((/*RF2*/(C)->_list/*0*/)),_i);
  2966. /*[IF*/
  2967. if((X82to_key((/*RF2*/(((T87*)_rp))->_new_name/*0*/)))==((void*)(_fn_to_key))){
  2968. R=(/*RF2*/(((T87*)_rp))->_old_name/*4*/);
  2969. }
  2970.  else if((X82to_key((/*RF2*/(((T87*)_rp))->_old_name/*4*/)))==((void*)(_fn_to_key))){
  2971. _no_longer_exists=1;
  2972. }
  2973. /*FI]*/
  2974. _i=(_i)-(1);
  2975. }
  2976. /*[IF*/
  2977. if((_no_longer_exists)&&((R)==((void*)(a1)))){
  2978. R=NULL;
  2979. }
  2980. /*FI]*/
  2981. return R;
  2982. }
  2983.  
  2984.  
  2985. void r85get_started(T85* C,T0* a1){
  2986. T0* _rp2=NULL;
  2987. T0* _rp1=NULL;
  2988. T2 _j=0;
  2989. T2 _i=0;
  2990. _i=(/*RF2*/((T88*)((/*RF2*/(C)->_list/*0*/)))->_upper/*8*/);
  2991. while (!((_i)==(0)))
  2992. {
  2993. _rp1=r88item((T88*)((/*RF2*/(C)->_list/*0*/)),_i);
  2994. /*[IF*/
  2995. if(!(r51has(((T51*)a1),(/*RF2*/(((T87*)_rp1))->_old_name/*4*/)))){
  2996. {T68 se_tmp0;
  2997. r66add_position((*(se_tmp0=X82start_position((/*RF2*/(((T87*)_rp1))->_old_name/*4*/)),&se_tmp0)));
  2998. }
  2999. r85fatal_error(((T0*)ms85_101934));
  3000. }
  3001. /*FI]*/
  3002. _i=(_i)-(1);
  3003. _j=_i;
  3004. while (!((_j)==(0)))
  3005. {
  3006. _rp2=r88item((T88*)((/*RF2*/(C)->_list/*0*/)),_j);
  3007. /*[IF*/
  3008. if((X82to_key((/*RF2*/(((T87*)_rp2))->_old_name/*4*/)))==((void*)(X82to_key((/*RF2*/(((T87*)_rp1))->_old_name/*4*/))))){
  3009. {T68 se_tmp0;
  3010. r66add_position((*(se_tmp0=X82start_position((/*RF2*/(((T87*)_rp1))->_old_name/*4*/)),&se_tmp0)));
  3011. }
  3012. {T68 se_tmp0;
  3013. r66add_position((*(se_tmp0=X82start_position((/*RF2*/(((T87*)_rp2))->_old_name/*4*/)),&se_tmp0)));
  3014. }
  3015. r85fatal_error(((T0*)ms85_121394));
  3016. }
  3017. /*FI]*/
  3018. _j=(_j)-(1);
  3019. }
  3020. }
  3021. }
  3022.  
  3023.  
  3024. void r297c_mapping_procedure(T0* a1,T0* a2,T0* a3){
  3025. /*[IF*/
  3026. if(r47boost((T47*)(oBC13run_control))){
  3027. r297c_mapping_external((/*RF2*/(((T337*)a1))->_base_feature/*24*/),r337arg_count(((T337*)a1)));
  3028. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  3029. /*]*/
  3030. }
  3031. else{
  3032. r337default_mapping_procedure(((T337*)a1));
  3033. }
  3034. /*FI]*/
  3035. }
  3036.  
  3037.  
  3038. void r297c_mapping_function(T0* a1,T0* a2,T0* a3){
  3039. /*[IF*/
  3040. if(r47boost((T47*)(oBC13run_control))){
  3041. r297c_mapping_external((/*RF2*/(((T333*)a1))->_base_feature/*24*/),r333arg_count(((T333*)a1)));
  3042. }
  3043. else{
  3044. r333default_mapping_function(((T333*)a1));
  3045. }
  3046. /*FI]*/
  3047. }
  3048.  
  3049.  
  3050. void r297standard_c_define_procedure(T0* a1,T0* a2,T0* a3){
  3051. /*[IF*/
  3052. /*AF*//*AE*/
  3053. /*FI]*/
  3054. /*[IF*/
  3055. if(r47no_check((T47*)(oBC13run_control))){
  3056. /*[IRF3.3clear*/((((T7*)((T7*)(oBC288body))))->_count)=(0);
  3057. /*]*/
  3058. r297wrapped_external_call((/*RF2*/(((T337*)a1))->_base_feature/*24*/),r337arg_count(((T337*)a1)));
  3059. r337c_define_with_body(((T337*)a1),oBC288body);
  3060. }
  3061. /*FI]*/
  3062. }
  3063.  
  3064.  
  3065. void r297standard_c_define_function(T0* a1,T0* a2,T0* a3){
  3066. /*[IF*/
  3067. /*AF*//*AE*/
  3068. /*FI]*/
  3069. /*[IF*/
  3070. if(r47no_check((T47*)(oBC13run_control))){
  3071. /*[IRF3.3clear*/((((T7*)((T7*)(oBC288body))))->_count)=(0);
  3072. /*]*/
  3073. r7extend((T7*)(oBC288body),((T3)'R'));
  3074. r7extend((T7*)(oBC288body),((T3)'\75'));
  3075. r297wrapped_external_call((/*RF2*/(((T333*)a1))->_base_feature/*24*/),r333arg_count(((T333*)a1)));
  3076. r333c_define_with_body(((T333*)a1),oBC288body);
  3077. }
  3078. /*FI]*/
  3079. }
  3080.  
  3081.  
  3082. void r297wrapped_external_call(T0* a1,T2 a2){
  3083. T2 _i=0;
  3084. r7append((T7*)(oBC288body),/*SSFRF4*//*X289external_c_name*/r291external_c_name(((T291*)a1)));
  3085. r7extend((T7*)(oBC288body),((T3)'\50'));
  3086. /*[IF*/
  3087. /*AF*//*AE*/
  3088. /*FI]*/
  3089. _i=1;
  3090. while (!((_i)>(a2)))
  3091. {
  3092. r7extend((T7*)(oBC288body),((T3)'a'));
  3093. r2append_in(_i,oBC288body);
  3094. _i=(_i)+(1);
  3095. /*[IF*/
  3096. if((_i)<=(a2)){
  3097. r7extend((T7*)(oBC288body),((T3)'\54'));
  3098. }
  3099. /*FI]*/
  3100. }
  3101. r7append((T7*)(oBC288body),((T0*)ms14_330));
  3102. }
  3103.  
  3104.  
  3105. void r297c_mapping_external(T0* a1,T2 a2){
  3106. T6 _tcbd=0;
  3107. T6 _eruc=0;
  3108. _eruc=/*(IRF4.1use_current*/0/*)*/;
  3109. /*[IF*/
  3110. if(!(_eruc)){
  3111. _tcbd=r325target_cannot_be_dropped((T325*)(oBC13cpp));
  3112. /*[IF*/
  3113. if(_tcbd){
  3114. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3115. T3 b1=((T3)'\54');
  3116. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3117. }/*]*/
  3118. /*]*/
  3119. }
  3120. /*FI]*/
  3121. }
  3122. /*FI]*/
  3123. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),/*SSFRF4*//*X289external_c_name*/r291external_c_name(((T291*)a1)));
  3124. /*]*/
  3125. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3126. T3 b1=((T3)'\50');
  3127. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3128. }/*]*/
  3129. /*]*/
  3130. /*[IF*/
  3131. if(_eruc){
  3132. r325put_target_as_value((T325*)(oBC13cpp));
  3133. }
  3134. /*FI]*/
  3135. /*[IF*/
  3136. if((a2)>(0)){
  3137. /*[IF*/
  3138. if(_eruc){
  3139. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3140. T3 b1=((T3)'\54');
  3141. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3142. }/*]*/
  3143. /*]*/
  3144. }
  3145. /*FI]*/
  3146. r325put_arguments((T325*)(oBC13cpp));
  3147. }
  3148. /*FI]*/
  3149. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3150. T3 b1=((T3)'\51');
  3151. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3152. }/*]*/
  3153. /*]*/
  3154. /*[IF*/
  3155. if((!(_eruc))&&(_tcbd)){
  3156. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3157. T3 b1=((T3)'\51');
  3158. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3159. }/*]*/
  3160. /*]*/
  3161. }
  3162. /*FI]*/
  3163. }
  3164.  
  3165.  
  3166. T0* r57first_parent_for(T57* C,T0* a1){
  3167. T0* R=NULL;
  3168. T0* _pbc=NULL;
  3169. T2 _i=0;
  3170. _i=1;
  3171. while (!((R)!=((void*)(NULL))))
  3172. {
  3173. R=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3174. _pbc=r58base_class(((T58*)R));
  3175. /*[IF*/
  3176. if((_pbc)==((void*)(a1))){
  3177. }
  3178.  else if(r51is_subclass_of(((T51*)_pbc),a1)){
  3179. }
  3180. else{
  3181. R=NULL;
  3182. }
  3183. /*FI]*/
  3184. _i=(_i)+(1);
  3185. }
  3186. return R;
  3187. }
  3188.  
  3189.  
  3190. T0* r57going_up(T57* C,T0* a1,T0* a2,T0* a3){
  3191. T0* R=NULL;
  3192. T0* _fn2=NULL;
  3193. T0* _fn1=NULL;
  3194. T0* _p2=NULL;
  3195. T0* _p1=NULL;
  3196. T2 _i=0;
  3197. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3198. while (!(((_fn1)!=((void*)(NULL)))||((_i)==(0))))
  3199. {
  3200. _p1=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3201. _fn1=r58going_up(((T58*)_p1),a1,a2,a3);
  3202. _i=(_i)-(1);
  3203. }
  3204. while (!((_i)==(0)))
  3205. {
  3206. _p2=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3207. _fn2=r58going_up(((T58*)_p2),a1,a2,a3);
  3208. /*[IF*/
  3209. if((_fn2)!=((void*)(NULL))){
  3210. /*[IF*/
  3211. if(r58has_select_for(((T58*)_p2),_fn2)){
  3212. _p1=_p2;
  3213. _fn1=_fn2;
  3214. }
  3215. /*FI]*/
  3216. }
  3217. /*FI]*/
  3218. _i=(_i)-(1);
  3219. }
  3220. R=_fn1;
  3221. return R;
  3222. }
  3223.  
  3224.  
  3225. void r57inherit_cycle_check(T57* C){
  3226. T0* _bc=NULL;
  3227. T0* _p=NULL;
  3228. T2 _i=0;
  3229. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3230. while (!((_i)==(0)))
  3231. {
  3232. _p=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3233. _bc=r58base_class(((T58*)_p));
  3234. /*[IF*/
  3235. if((_bc)==((void*)(NULL))){
  3236. {T68 se_tmp0;
  3237. r66add_position((*(se_tmp0=r58start_position(((T58*)_p)),&se_tmp0)));
  3238. }
  3239. r57fatal_error(((T0*)ms14_19808));
  3240. }
  3241. else{
  3242. r51inherit_cycle_check(((T51*)_bc));
  3243. }
  3244. /*FI]*/
  3245. _i=(_i)-(1);
  3246. }
  3247. }
  3248.  
  3249.  
  3250. T6 r57has_redefine(T57* C,T0* a1){
  3251. T6 R=0;
  3252. T2 _i=0;
  3253. _i=1;
  3254. while (!((R)||((_i)>((/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/)))))
  3255. {
  3256. R=r58has_redefine((T58*)(r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i)),a1);
  3257. _i=(_i)+(1);
  3258. }
  3259. return R;
  3260. }
  3261.  
  3262.  
  3263. T0* r57repeated_inheritance(T57* C,T0* a1,T0* a2,T0* a3){
  3264. T0* R=NULL;
  3265. T0* _bc1=NULL;
  3266. T0* _p2=NULL;
  3267. T2 _i=0;
  3268. _bc1=r58base_class(((T58*)a1));
  3269. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3270. while (!((_i)==(0)))
  3271. {
  3272. _p2=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3273. /*[IF*/
  3274. if((a1)!=((void*)(_p2))){
  3275. /*[IF*/
  3276. if((_bc1)==((void*)(r58base_class(((T58*)_p2))))){
  3277. /*[IF*/
  3278. if((X82to_string(r58do_rename(((T58*)_p2),a2)))==((void*)(X82to_string(a3)))){
  3279. R=a3;
  3280. }
  3281.  else if((X82to_string(r58do_rename(((T58*)a1),a2)))==((void*)(X82to_string(a3)))){
  3282. R=a3;
  3283. }
  3284. /*FI]*/
  3285. }
  3286. /*FI]*/
  3287. }
  3288. /*FI]*/
  3289. _i=(_i)-(1);
  3290. }
  3291. /*[IF*/
  3292. if((R)==((void*)(NULL))){
  3293. R=a2;
  3294. }
  3295. /*FI]*/
  3296. return R;
  3297. }
  3298.  
  3299.  
  3300. T0* r57precursor_for(T57* C,T0* a1,T0* a2){
  3301. T0* R=NULL;
  3302. T0* _f2=NULL;
  3303. T0* _parent=NULL;
  3304. T2 _i=0;
  3305. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3306. while (!(((R)!=((void*)(NULL)))||((_i)==(0))))
  3307. {
  3308. _parent=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3309. R=r58precursor_for(((T58*)_parent),a1,a2);
  3310. _i=(_i)-(1);
  3311. }
  3312. /*[IF*/
  3313. if((R)==((void*)(NULL))){
  3314. r66add_position(/*SSWARF2*//*X167start_position*/(/*RF2*/(((T168*)a1))->_start_position/*4*/));
  3315. r57fatal_error(((T0*)ms57_50372));
  3316. }
  3317. /*FI]*/
  3318. /*[IF*/
  3319. if(r47all_check((T47*)(oBC13run_control))){
  3320. while (!((_i)==(0)))
  3321. {
  3322. _parent=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3323. _f2=r58precursor_for(((T58*)_parent),a1,a2);
  3324. /*[IF*/
  3325. if(((_f2)!=((void*)(NULL)))&&((_f2)!=((void*)(R)))){
  3326. r66add_position(/*SSWARF2*//*X167start_position*/(/*RF2*/(((T168*)a1))->_start_position/*4*/));
  3327. {T68 se_tmp0;
  3328. r66add_position((*(se_tmp0=X302start_position(R),&se_tmp0)));
  3329. }
  3330. {T68 se_tmp0;
  3331. r66add_position((*(se_tmp0=X302start_position(_f2),&se_tmp0)));
  3332. }
  3333. r57fatal_error(((T0*)ms57_162378));
  3334. }
  3335. /*FI]*/
  3336. _i=(_i)-(1);
  3337. }
  3338. }
  3339. /*FI]*/
  3340. return R;
  3341. }
  3342.  
  3343.  
  3344. void r57make(T57* C,T0* a1,T68 a2,T0* a3,T0* a4){
  3345. (/*SFN*/C->_base_class)=a1;
  3346. (/*SFN*/C->_heading_comment)=a3;
  3347. (/*SFN*/C->_start_position)=a2;
  3348. (/*SFN*/C->_list)=a4;
  3349. }
  3350.  
  3351.  
  3352. void r57fatal_error(T0* a1){
  3353. /*[IRF3.6append*/{T0* b1=a1;
  3354. r7append((T7*)(oBC66explanation),b1);
  3355. }/*]*/
  3356. r66print_as_fatal_error((T66*)(oBC13eh));
  3357. }
  3358.  
  3359.  
  3360. T0* r57smallest_ancestor(T57* C,T0* a1,T0* a2){
  3361. T0* R=NULL;
  3362. T0* _sa=NULL;
  3363. T0* _p=NULL;
  3364. T2 _i=0;
  3365. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3366. while (!((_i)<=(0)))
  3367. {
  3368. _p=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3369. _sa=r58runnable_type(((T58*)_p),a2);
  3370. /*[IF*/
  3371. if((R)==((void*)(NULL))){
  3372. R=_sa;
  3373. }
  3374.  else if((X52run_time_mark(_sa))==((void*)(X52run_time_mark(a2)))){
  3375. R=_sa;
  3376. _i=0;
  3377. }
  3378.  else if(X52is_a(_sa,a2)){
  3379. /*[IF*/
  3380. if(X52is_a(R,a2)){
  3381. R=X52smallest_ancestor(_sa,R);
  3382. }
  3383. else{
  3384. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  3385. /*]*/
  3386. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  3387. /*]*/
  3388. /*]*/
  3389. R=_sa;
  3390. }
  3391. /*FI]*/
  3392. }
  3393. else{
  3394. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  3395. /*]*/
  3396. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  3397. /*]*/
  3398. /*]*/
  3399. }
  3400. /*FI]*/
  3401. _i=(_i)-(1);
  3402. }
  3403. return R;
  3404. }
  3405.  
  3406.  
  3407. T6 r57has_parent(T57* C,T0* a1){
  3408. T6 R=0;
  3409. T0* _bc=NULL;
  3410. T2 _i=0;
  3411. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3412. while (!((_i)==(0)))
  3413. {
  3414. _bc=r58base_class((T58*)(r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i)));
  3415. /*[IF*/
  3416. if((a1)==((void*)(_bc))){
  3417. R=1;
  3418. _i=0;
  3419. }
  3420.  else if(r51is_subclass_of_aux(((T51*)_bc),a1)){
  3421. R=1;
  3422. _i=0;
  3423. }
  3424. else{
  3425. _i=(_i)-(1);
  3426. }
  3427. /*FI]*/
  3428. }
  3429. return R;
  3430. }
  3431.  
  3432.  
  3433. T6 r57is_a_vncg(T57* C,T0* a1,T0* a2){
  3434. T6 R=0;
  3435. T2 _i=0;
  3436. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3437. while (!((R)||((_i)==(0))))
  3438. {
  3439. R=r58is_a_vncg((T58*)(r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i)),a1,a2);
  3440. _i=(_i)-(1);
  3441. }
  3442. return R;
  3443. }
  3444.  
  3445.  
  3446. void r57collect_assertion(T57* C,T0* a1){
  3447. T0* _fn2=NULL;
  3448. T0* _fn1=NULL;
  3449. T0* _p2=NULL;
  3450. T0* _p1=NULL;
  3451. T2 _i=0;
  3452. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3453. while (!((_i)==(0)))
  3454. {
  3455. _p2=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3456. _fn2=r58name_in_parent(((T58*)_p2),a1);
  3457. /*[IF*/
  3458. if(((_fn2)!=((void*)(NULL)))&&(r58has_select_for(((T58*)_p2),a1))){
  3459. _p1=_p2;
  3460. _fn1=_fn2;
  3461. }
  3462. /*FI]*/
  3463. _i=(_i)-(1);
  3464. }
  3465. /*[IF*/
  3466. if((_fn1)!=((void*)(NULL))){
  3467. r51collect_assertion((T51*)(r58base_class(((T58*)_p1))),_fn1);
  3468. }
  3469. else{
  3470. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3471. while (!((_i)==(0)))
  3472. {
  3473. _p1=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3474. _fn1=r58name_in_parent(((T58*)_p1),a1);
  3475. /*[IF*/
  3476. if((_fn1)!=((void*)(NULL))){
  3477. r51collect_assertion((T51*)(r58base_class(((T58*)_p1))),_fn1);
  3478. }
  3479. /*FI]*/
  3480. _i=(_i)-(1);
  3481. }
  3482. }
  3483. /*FI]*/
  3484. }
  3485.  
  3486.  
  3487. void r57collect_invariant(T57* C,T0* a1){
  3488. T2 _i=0;
  3489. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3490. while (!((_i)==(0)))
  3491. {
  3492. r51collect_invariant((T51*)(r58base_class((T58*)(r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i)))),a1);
  3493. _i=(_i)-(1);
  3494. }
  3495. }
  3496.  
  3497.  
  3498. T0* r57clients_for(T57* C,T0* a1){
  3499. T0* R=NULL;
  3500. T0* _cl=NULL;
  3501. T2 _i=0;
  3502. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3503. while (!((_i)==(0)))
  3504. {
  3505. _cl=r58clients_for((T58*)(r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i)),a1);
  3506. /*[IF*/
  3507. if((R)==((void*)(NULL))){
  3508. R=_cl;
  3509. }
  3510.  else if((_cl)!=((void*)(NULL))){
  3511. R=r99append(((T99*)R),_cl);
  3512. }
  3513. /*FI]*/
  3514. /*[IF*/
  3515. if((R)==((void*)(NULL))){
  3516. _i=(_i)-(1);
  3517. }
  3518.  else if(r99gives_permission_to_any(((T99*)R))){
  3519. _i=0;
  3520. }
  3521. else{
  3522. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  3523. /*]*/
  3524. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  3525. /*]*/
  3526. /*]*/
  3527. _i=(_i)-(1);
  3528. }
  3529. /*FI]*/
  3530. }
  3531. return R;
  3532. }
  3533.  
  3534.  
  3535. T0* r57look_up_for(T57* C,T0* a1,T0* a2){
  3536. T0* R=NULL;
  3537. T0* _f2=NULL;
  3538. T0* _f1=NULL;
  3539. T0* _p2=NULL;
  3540. T0* _p1=NULL;
  3541. T2 _i=0;
  3542. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3543. while (!(((_f1)!=((void*)(NULL)))||((_i)==(0))))
  3544. {
  3545. _p1=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3546. _f1=r58look_up_for(((T58*)_p1),a1,a2);
  3547. _i=(_i)-(1);
  3548. }
  3549. while (!((_i)==(0)))
  3550. {
  3551. _p2=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3552. _f2=r58look_up_for(((T58*)_p2),a1,a2);
  3553. /*[IF*/
  3554. if((_f2)==((void*)(NULL))){
  3555. }
  3556.  else if((_f1)==((void*)(_f2))){
  3557. }
  3558.  else if(X90is_not_mergeable_with(_f2,_f1)){
  3559. r66add_position((/*RF2*/(C)->_start_position/*4*/));
  3560. {T68 se_tmp0;
  3561. r66add_position((*(se_tmp0=X90start_position(_f1),&se_tmp0)));
  3562. }
  3563. {T68 se_tmp0;
  3564. r66add_position((*(se_tmp0=X90start_position(_f2),&se_tmp0)));
  3565. }
  3566. /*[IRF3.6append*/{T0* b1=((T0*)ms14_33308);
  3567. r7append((T7*)(oBC66explanation),b1);
  3568. }/*]*/
  3569. r66print_as_fatal_error((T66*)(oBC13eh));
  3570. }
  3571.  else if(X90is_deferred(_f2)){
  3572. }
  3573.  else if(X90is_deferred(_f1)){
  3574. _f1=_f2;
  3575. _p1=_p2;
  3576. }
  3577.  else if(r58has_redefine(((T58*)_p1),a2)){
  3578. /*[IF*/
  3579. if(r58has_redefine(((T58*)_p2),a2)){
  3580. }
  3581. else{
  3582. {T68 se_tmp0;
  3583. r66add_position((*(se_tmp0=X82start_position(a2),&se_tmp0)));
  3584. }
  3585. {T68 se_tmp0;
  3586. r66add_position((*(se_tmp0=r58start_position(((T58*)_p2)),&se_tmp0)));
  3587. }
  3588. {T68 se_tmp0;
  3589. r66add_position((*(se_tmp0=X90start_position(_f2),&se_tmp0)));
  3590. }
  3591. /*[IRF3.6append*/{T0* b1=((T0*)ms57_23940);
  3592. r7append((T7*)(oBC66explanation),b1);
  3593. }/*]*/
  3594. r66print_as_fatal_error((T66*)(oBC13eh));
  3595. }
  3596. /*FI]*/
  3597. }
  3598.  else if(r58has_redefine(((T58*)_p2),a2)){
  3599. {T68 se_tmp0;
  3600. r66add_position((*(se_tmp0=X82start_position(a2),&se_tmp0)));
  3601. }
  3602. {T68 se_tmp0;
  3603. r66add_position((*(se_tmp0=r58start_position(((T58*)_p1)),&se_tmp0)));
  3604. }
  3605. {T68 se_tmp0;
  3606. r66add_position((*(se_tmp0=X90start_position(_f1),&se_tmp0)));
  3607. }
  3608. /*[IRF3.6append*/{T0* b1=((T0*)ms57_23940);
  3609. r7append((T7*)(oBC66explanation),b1);
  3610. }/*]*/
  3611. r66print_as_fatal_error((T66*)(oBC13eh));
  3612. }
  3613. else{
  3614. {T68 se_tmp0;
  3615. r66add_position((*(se_tmp0=r58start_position(((T58*)_p2)),&se_tmp0)));
  3616. }
  3617. {T68 se_tmp0;
  3618. r66add_position((*(se_tmp0=r58start_position(((T58*)_p1)),&se_tmp0)));
  3619. }
  3620. {T68 se_tmp0;
  3621. r66add_position((*(se_tmp0=X90start_position(_f1),&se_tmp0)));
  3622. }
  3623. {T68 se_tmp0;
  3624. r66add_position((*(se_tmp0=X90start_position(_f2),&se_tmp0)));
  3625. }
  3626. /*[IRF3.6append*/{T0* b1=((T0*)ms57_23940);
  3627. r7append((T7*)(oBC66explanation),b1);
  3628. }/*]*/
  3629. r66print_as_fatal_error((T66*)(oBC13eh));
  3630. }
  3631. /*FI]*/
  3632. _i=(_i)-(1);
  3633. }
  3634. R=_f1;
  3635. return R;
  3636. }
  3637.  
  3638.  
  3639. T0* r57original_name(T57* C,T0* a1,T0* a2){
  3640. T0* R=NULL;
  3641. T2 _i=0;
  3642. T0* _fn1=NULL;
  3643. T0* _p1=NULL;
  3644. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3645. while (!(((_i)==(0))||((_fn1)!=((void*)(NULL)))))
  3646. {
  3647. _p1=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3648. _fn1=r58original_name(((T58*)_p1),a1,a2);
  3649. _i=(_i)-(1);
  3650. }
  3651. R=_fn1;
  3652. /*[IF*/
  3653. if((R)==((void*)(NULL))){
  3654. R=a2;
  3655. {T68 se_tmp0;
  3656. r66add_position((*(se_tmp0=X82start_position(a2),&se_tmp0)));
  3657. }
  3658. /*[IRF3.6append*/{T0* b1=(/*RF2*/((T61*)((/*RF2*/(((T51*)a1))->_name/*18*/)))->_to_string/*8*/);
  3659. r7append((T7*)(oBC66explanation),b1);
  3660. }/*]*/
  3661. /*[IRF3.6append*/{T0* b1=((T0*)ms57_125391);
  3662. r7append((T7*)(oBC66explanation),b1);
  3663. }/*]*/
  3664. r66print_as_warning((T66*)(oBC13eh));
  3665. }
  3666. /*FI]*/
  3667. return R;
  3668. }
  3669.  
  3670.  
  3671. T0* r57e_feature(T57* C,T0* a1){
  3672. T0* R=NULL;
  3673. T2 _i=0;
  3674. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3675. while (!(((R)!=((void*)(NULL)))||((_i)==(0))))
  3676. {
  3677. R=r58e_feature((T58*)(r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i)),a1);
  3678. _i=(_i)-(1);
  3679. }
  3680. return R;
  3681. }
  3682.  
  3683.  
  3684. void r57get_started(T57* C){
  3685. T0* _p2=NULL;
  3686. T0* _p1=NULL;
  3687. T2 _i2=0;
  3688. T2 _i1=0;
  3689. _i1=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3690. while (!((_i1)==(0)))
  3691. {
  3692. r58get_started((T58*)(r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i1)),(T0*)C);
  3693. _i1=(_i1)-(1);
  3694. }
  3695. /*[IF*/
  3696. if(((/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/))>(1)){
  3697. _i2=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3698. while (!((_i2)==(1)))
  3699. {
  3700. _i1=1;
  3701. while (!((_i1)==(_i2)))
  3702. {
  3703. _p1=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i1);
  3704. _p2=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i2);
  3705. r58multiple_check(((T58*)_p1),_p2);
  3706. r58multiple_check(((T58*)_p2),_p1);
  3707. _i1=(_i1)+(1);
  3708. }
  3709. _i2=(_i2)-(1);
  3710. }
  3711. }
  3712. /*FI]*/
  3713. }
  3714.  
  3715.  
  3716. T0* r57up_to_original(T57* C,T0* a1,T0* a2){
  3717. T0* R=NULL;
  3718. T2 _i=0;
  3719. T0* _new_fn=NULL;
  3720. T0* _fn2=NULL;
  3721. T0* _fn1=NULL;
  3722. T0* _p2=NULL;
  3723. T0* _p1=NULL;
  3724. _i=(/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/);
  3725. while (!(((_i)==(0))||((_fn1)!=((void*)(NULL)))))
  3726. {
  3727. _p1=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3728. _fn1=r58up_to_original(((T58*)_p1),a1,a2);
  3729. _i=(_i)-(1);
  3730. }
  3731. while (!((_i)==(0)))
  3732. {
  3733. _p2=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3734. _fn2=r58up_to_original(((T58*)_p2),a1,a2);
  3735. /*[IF*/
  3736. if((_fn2)!=((void*)(NULL))){
  3737. _new_fn=r58do_rename(((T58*)_p2),a2);
  3738. /*[IF*/
  3739. if(r58has_select_for(((T58*)_p2),_new_fn)){
  3740. _p1=_p2;
  3741. _fn1=_fn2;
  3742. }
  3743. /*FI]*/
  3744. }
  3745. /*FI]*/
  3746. _i=(_i)-(1);
  3747. }
  3748. /*[IF*/
  3749. if((_fn1)!=((void*)(NULL))){
  3750. /*[IF*/
  3751. if((X82to_string(_fn1))!=((void*)(X82to_string(a2)))){
  3752. R=r57repeated_inheritance(C,_p1,_fn1,a2);
  3753. }
  3754. else{
  3755. R=_fn1;
  3756. }
  3757. /*FI]*/
  3758. }
  3759. /*FI]*/
  3760. return R;
  3761. }
  3762.  
  3763.  
  3764. T0* r57next_parent_for(T57* C,T0* a1,T0* a2){
  3765. T0* R=NULL;
  3766. T0* _pbc=NULL;
  3767. T2 _i=0;
  3768. _i=1;
  3769. while (!((R)==((void*)(a2))))
  3770. {
  3771. R=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3772. _i=(_i)+(1);
  3773. }
  3774. R=NULL;
  3775. while (!(((R)!=((void*)(NULL)))||((_i)>(r59count((T59*)((/*RF2*/(C)->_list/*16*/)))))))
  3776. {
  3777. R=r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i);
  3778. _pbc=r58base_class(((T58*)R));
  3779. /*[IF*/
  3780. if((_pbc)==((void*)(a1))){
  3781. }
  3782.  else if(r51is_subclass_of(((T51*)_pbc),a1)){
  3783. }
  3784. else{
  3785. R=NULL;
  3786. }
  3787. /*FI]*/
  3788. _i=(_i)+(1);
  3789. }
  3790. return R;
  3791. }
  3792.  
  3793.  
  3794. void r57id_extra_information(T57* C,T0* a1){
  3795. T2 _i=0;
  3796. r48put_integer(((T48*)a1),/*(IRF4.6count*/(/*RF2*/(((T59*)((/*RF2*/(C)->_list/*16*/))))->_upper/*8*/)/*)*/);
  3797. r48put_string(((T48*)a1),((T0*)ms57_7760));
  3798. _i=1;
  3799. while (!((_i)>((/*RF2*/((T59*)((/*RF2*/(C)->_list/*16*/)))->_upper/*8*/))))
  3800. {
  3801. /*[IRF3.6id_extra_information*/{T58* C1=(T58*)(r59item((T59*)((/*RF2*/(C)->_list/*16*/)),_i));
  3802. T0* b1=a1;
  3803. r48put_integer(((T48*)b1),(/*RF2*/((T51*)(r58base_class(C1)))->_id/*0*/));
  3804. }/*]*/
  3805. /*[IRF3.6put_character*/{T48* C1=((T48*)a1);
  3806. T3 b1=((T3)'\40');
  3807. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3808. }/*]*/
  3809. _i=(_i)+(1);
  3810. }
  3811. }
  3812.  
  3813.  
  3814. void r397default_mapping_procedure(T397* C){
  3815. r397default_mapping_function(C);
  3816. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  3817. /*]*/
  3818. }
  3819.  
  3820.  
  3821. T2 r397id(T397* C){
  3822. T2 R=0;
  3823. R=X52id((/*RF2*/(C)->_current_type/*8*/));
  3824. return R;
  3825. }
  3826.  
  3827.  
  3828. void r397address_of_c_mapping_wrapper(T397* C){
  3829. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  3830. /*]*/
  3831. r397address_of_wrapper_name_in(C,oBC334c_code);
  3832. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  3833. /*]*/
  3834. }
  3835.  
  3836.  
  3837. void r397fall_down(T397* C){
  3838. T0* _rf=NULL;
  3839. T0* _sub_name=NULL;
  3840. T0* _sub_bc=NULL;
  3841. T0* _current_bc=NULL;
  3842. T0* _sub_rc=NULL;
  3843. T0* _current_rc=NULL;
  3844. T2 _i=0;
  3845. T0* _running=NULL;
  3846. _current_rc=X52run_class((/*RF2*/(C)->_current_type/*8*/));
  3847. _running=(/*RF2*/(((T50*)_current_rc))->_running/*9*/);
  3848. /*[IF*/
  3849. if((_running)!=((void*)(NULL))){
  3850. _current_bc=X52base_class((/*RF2*/(C)->_current_type/*8*/));
  3851. _i=(/*RF2*/(((T53*)_running))->_lower/*12*/);
  3852. while (!((_i)>((/*RF2*/(((T53*)_running))->_upper/*8*/))))
  3853. {
  3854. _sub_rc=r53item(((T53*)_running),_i);
  3855. /*[IF*/
  3856. if((_sub_rc)!=((void*)(_current_rc))){
  3857. _sub_bc=X52base_class((/*RF2*/(((T50*)_sub_rc))->_current_type/*0*/));
  3858. _sub_name=r51new_name_of(((T51*)_sub_bc),_current_bc,(/*RF2*/(C)->_name/*12*/));
  3859. _rf=r50get_feature(((T50*)_sub_rc),_sub_name);
  3860. }
  3861. /*FI]*/
  3862. _i=(_i)+(1);
  3863. }
  3864. }
  3865. /*FI]*/
  3866. }
  3867.  
  3868.  
  3869. void r397c_define(T397* C){
  3870. r363c_define_o_flag((T0*)C);
  3871. r397define_prototype(C);
  3872. r363c_test_o_flag((T0*)C);
  3873. r397c_define_opening(C);
  3874. /*[IF*/
  3875. if(((/*RF2*/(C)->_routine_body/*40*/))!=((void*)(NULL))){
  3876. r215compile_to_c((T215*)((/*RF2*/(C)->_routine_body/*40*/)));
  3877. }
  3878. /*FI]*/
  3879. r397c_define_closing(C);
  3880. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms397_1540));
  3881. /*]*/
  3882. r397c_frame_descriptor(C);
  3883. }
  3884.  
  3885.  
  3886. T0* r397clients(T397* C){
  3887. T0* R=NULL;
  3888. T0* _bfbc=NULL;
  3889. T0* _bc=NULL;
  3890. /*[IF*/
  3891. if(((/*RF2*/(C)->_clients_memory/*4*/))==((void*)(NULL))){
  3892. _bc=X52base_class((/*RF2*/(C)->_current_type/*8*/));
  3893. _bfbc=(/*RF2*/((T306*)((/*RF2*/(C)->_base_feature/*24*/)))->_base_class/*4*/);
  3894. /*[IF*/
  3895. if((_bc)==((void*)(_bfbc))){
  3896. R=(/*RF2*/((T306*)((/*RF2*/(C)->_base_feature/*24*/)))->_clients/*16*/);
  3897. }
  3898. else{
  3899. R=r51clients_for(((T51*)_bc),(/*RF2*/(C)->_name/*12*/));
  3900. }
  3901. /*FI]*/
  3902. (/*SFN*/C->_clients_memory)=R;
  3903. }
  3904. else{
  3905. R=(/*RF2*/(C)->_clients_memory/*4*/);
  3906. }
  3907. /*FI]*/
  3908. return R;
  3909. }
  3910.  
  3911.  
  3912. void r397put_c_name_tag(T397* C){
  3913. T0* _fn=NULL;
  3914. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3915. T3 b1=((T3)'\42');
  3916. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3917. }/*]*/
  3918. /*]*/
  3919. _fn=/*(IRF4.6first_name*/(/*RF2*/(((T83*)((/*RF2*/((T306*)((/*RF2*/(C)->_base_feature/*24*/)))->_names/*8*/))))->_first/*0*/)/*)*/;
  3920. /*[IF*/
  3921. if((X82to_key(_fn))!=((void*)(X82to_key((/*RF2*/(C)->_name/*12*/))))){
  3922. X82put_cpp_tag((/*RF2*/(C)->_name/*12*/));
  3923. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X82to_string((/*RF2*/(C)->_name/*12*/)));
  3924. /*]*/
  3925. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3926. T3 b1=((T3)'\40');
  3927. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3928. }/*]*/
  3929. /*]*/
  3930. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3931. T3 b1=((T3)'\50');
  3932. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3933. }/*]*/
  3934. /*]*/
  3935. }
  3936. /*FI]*/
  3937. X82put_cpp_tag(_fn);
  3938. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X82to_string(_fn));
  3939. /*]*/
  3940. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_1108));
  3941. /*]*/
  3942. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),(/*RF2*/((T61*)(/*(IRF4.6base_class_name*/(/*RF2*/(((T51*)((/*RF2*/((T306*)((/*RF2*/(C)->_base_feature/*24*/)))->_base_class/*4*/))))->_name/*18*/)/*)*/))->_to_string/*8*/));
  3943. /*]*/
  3944. /*[IF*/
  3945. if((X82to_key(_fn))!=((void*)(X82to_key((/*RF2*/(C)->_name/*12*/))))){
  3946. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3947. T3 b1=((T3)'\51');
  3948. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3949. }/*]*/
  3950. /*]*/
  3951. }
  3952. /*FI]*/
  3953. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3954. T3 b1=((T3)'\42');
  3955. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3956. }/*]*/
  3957. /*]*/
  3958. }
  3959.  
  3960.  
  3961. void r397std_compute_use_current(T397* C){
  3962. /*[IF*/
  3963. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  3964. /*[IF*/
  3965. if(((/*RF2*/(C)->_require_assertion/*32*/))!=((void*)(NULL))){
  3966. /*[IF*/
  3967. if(r376use_current((T376*)((/*RF2*/(C)->_require_assertion/*32*/)))){
  3968. (/*SFN*/C->_use_current_state)=22;
  3969. }
  3970. /*FI]*/
  3971. }
  3972. /*FI]*/
  3973. }
  3974. /*FI]*/
  3975. /*[IF*/
  3976. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  3977. /*[IF*/
  3978. if(((/*RF2*/(C)->_routine_body/*40*/))!=((void*)(NULL))){
  3979. /*[IF*/
  3980. if(r215use_current((T215*)((/*RF2*/(C)->_routine_body/*40*/)))){
  3981. (/*SFN*/C->_use_current_state)=22;
  3982. }
  3983. /*FI]*/
  3984. }
  3985. /*FI]*/
  3986. }
  3987. /*FI]*/
  3988. /*[IF*/
  3989. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  3990. /*[IF*/
  3991. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  3992. /*[IF*/
  3993. if(r215use_current((T215*)((/*RF2*/(C)->_rescue_compound/*44*/)))){
  3994. (/*SFN*/C->_use_current_state)=22;
  3995. }
  3996. /*FI]*/
  3997. }
  3998. /*FI]*/
  3999. }
  4000. /*FI]*/
  4001. /*[IF*/
  4002. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  4003. /*[IF*/
  4004. if(((/*RF2*/(C)->_ensure_assertion/*48*/))!=((void*)(NULL))){
  4005. /*[IF*/
  4006. if(r214use_current((T214*)((/*RF2*/(C)->_ensure_assertion/*48*/)))){
  4007. (/*SFN*/C->_use_current_state)=22;
  4008. }
  4009. /*FI]*/
  4010. }
  4011. /*FI]*/
  4012. }
  4013. /*FI]*/
  4014. /*[IF*/
  4015. if(((/*RF2*/(C)->_use_current_state/*16*/))==(24)){
  4016. (/*SFN*/C->_use_current_state)=21;
  4017. }
  4018. /*FI]*/
  4019. }
  4020.  
  4021.  
  4022. void r397address_of_c_define(T397* C,T0* a1){
  4023. /*[IF*/
  4024. if(r47boost((T47*)(oBC13run_control))){
  4025. /*[IF*/
  4026. if(r397use_current(C)){
  4027. }
  4028. else{
  4029. r397address_of_c_define_wrapper(C,a1);
  4030. }
  4031. /*FI]*/
  4032. }
  4033. else{
  4034. r397address_of_c_define_wrapper(C,a1);
  4035. }
  4036. /*FI]*/
  4037. }
  4038.  
  4039.  
  4040. T0* r397run_ensure(T397* C){
  4041. T0* R=NULL;
  4042. R=r51run_ensure((T51*)(X52base_class((/*RF2*/(C)->_current_type/*8*/))),(T0*)C);
  4043. return R;
  4044. }
  4045.  
  4046.  
  4047. void r397default_mapping_function(T397* C){
  4048. T6 _tcbd=0;
  4049. T6 _uc=0;
  4050. T6 _no_check=0;
  4051. _no_check=r47no_check((T47*)(oBC13run_control));
  4052. _uc=r397use_current(C);
  4053. /*[IF*/
  4054. if(!(_uc)){
  4055. _tcbd=r325target_cannot_be_dropped((T325*)(oBC13cpp));
  4056. /*[IF*/
  4057. if(_tcbd){
  4058. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4059. T3 b1=((T3)'\54');
  4060. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4061. }/*]*/
  4062. /*]*/
  4063. }
  4064. /*FI]*/
  4065. }
  4066. /*FI]*/
  4067. r397mapping_name(C);
  4068. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4069. T3 b1=((T3)'\50');
  4070. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4071. }/*]*/
  4072. /*]*/
  4073. /*[IF*/
  4074. if(_no_check){
  4075. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_759));
  4076. /*]*/
  4077. }
  4078. /*FI]*/
  4079. /*[IF*/
  4080. if(_uc){
  4081. /*[IF*/
  4082. if(_no_check){
  4083. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4084. T3 b1=((T3)'\54');
  4085. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4086. }/*]*/
  4087. /*]*/
  4088. }
  4089. /*FI]*/
  4090. r325put_target_as_target((T325*)(oBC13cpp));
  4091. }
  4092. /*FI]*/
  4093. /*[IF*/
  4094. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  4095. /*[IF*/
  4096. if((_uc)||(_no_check)){
  4097. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4098. T3 b1=((T3)'\54');
  4099. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4100. }/*]*/
  4101. /*]*/
  4102. }
  4103. /*FI]*/
  4104. r325put_arguments((T325*)(oBC13cpp));
  4105. }
  4106. /*FI]*/
  4107. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4108. T3 b1=((T3)'\51');
  4109. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4110. }/*]*/
  4111. /*]*/
  4112. /*[IF*/
  4113. if((!(_uc))&&(_tcbd)){
  4114. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4115. T3 b1=((T3)'\51');
  4116. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4117. }/*]*/
  4118. /*]*/
  4119. }
  4120. /*FI]*/
  4121. }
  4122.  
  4123.  
  4124. void r397address_of_wrapper_name_in(T397* C,T0* a1){
  4125. r7extend(((T7*)a1),((T3)'W'));
  4126. r2append_in(r397id(C),a1);
  4127. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),a1);
  4128. }
  4129.  
  4130.  
  4131. void r397make(T397* C,T0* a1,T0* a2,T0* a3){
  4132. (/*SFN*/C->_current_type)=a1;
  4133. (/*SFN*/C->_name)=a2;
  4134. (/*SFN*/C->_base_feature)=a3;
  4135. r50add_rf((T50*)(r397run_class(C)),(T0*)C,X82to_key(a2));
  4136. r49incr_magic_count((T49*)(oBC13small_eiffel));
  4137. (/*SFN*/C->_use_current_state)=23;
  4138. (/*SFN*/C->_stupid_switch_state)=23;
  4139. r49push((T49*)(oBC13small_eiffel),(T0*)C);
  4140. r397initialize(C);
  4141. r49pop((T49*)(oBC13small_eiffel));
  4142. }
  4143.  
  4144.  
  4145. void r397c_assertion_flag(T397* C){
  4146. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  4147. /*]*/
  4148. r397c_frame_descriptor_name_in(C,oBC334c_code);
  4149. r7append((T7*)(oBC334c_code),((T0*)ms334_30285));
  4150. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  4151. /*]*/
  4152. }
  4153.  
  4154.  
  4155. void r397c_define_opening(T397* C){
  4156. T0* _oresult=NULL;
  4157. T6 _ensure_check=0;
  4158. T6 _no_check=0;
  4159. T0* _t=NULL;
  4160. _no_check=r47no_check((T47*)(oBC13run_control));
  4161. _ensure_check=r47ensure_check((T47*)(oBC13run_control));
  4162. /*[IF*/
  4163. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  4164. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_21346));
  4165. /*]*/
  4166. }
  4167. /*FI]*/
  4168. /*[IF*/
  4169. /*AF*//*AF*//*AE*/
  4170. /*FI]*/
  4171. /*[IF*/
  4172. if(((/*RF2*/(C)->_local_vars/*36*/))!=((void*)(NULL))){
  4173. r169c_declare((T169*)((/*RF2*/(C)->_local_vars/*36*/)));
  4174. }
  4175. /*FI]*/
  4176. /*[IF*/
  4177. if(_ensure_check){
  4178. /*[IF*/
  4179. if(((/*RF2*/(C)->_ensure_assertion/*48*/))!=((void*)(NULL))){
  4180. r214c_declare_for_old((T214*)((/*RF2*/(C)->_ensure_assertion/*48*/)));
  4181. }
  4182. /*FI]*/
  4183. }
  4184. /*FI]*/
  4185. /*[IF*/
  4186. if(_no_check){
  4187. /*[IF*/
  4188. if(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))>(0)){
  4189. r7copy((T7*)(oBC334c_code),((T0*)ms334_21567));
  4190. /*[IRF3.5append_in*/r2append_in(((T2)((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))),oBC334c_code);
  4191. /*]*/
  4192. r7extend((T7*)(oBC334c_code),((T3)'\135'));
  4193. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  4194. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  4195. /*]*/
  4196. }
  4197. /*FI]*/
  4198. r397c_initialize_ds_one_by_one(C);
  4199. /*[IRF3.2c_initialize_locals_one_by_one*/{T3 _c=0;
  4200. T2 _j=0;
  4201. T2 _i=0;
  4202. _j=1;
  4203. while (!(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))==(_i)))
  4204. {
  4205. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_8120));
  4206. /*]*/
  4207. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),_i);
  4208. /*]*/
  4209. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_308));
  4210. /*]*/
  4211. _c=/*(IRF4.6item*/((/*RF2*/((T7*)(oBC13c_frame_descriptor_locals))->_storage/*0*/))[(_j)-(1)]/*)*/;
  4212. while (!((_c)==(((T3)'\54'))))
  4213. {
  4214. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4215. T3 b1=_c;
  4216. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4217. }/*]*/
  4218. /*]*/
  4219. _j=(_j)+(1);
  4220. _c=/*(IRF4.6item*/((/*RF2*/((T7*)(oBC13c_frame_descriptor_locals))->_storage/*0*/))[(_j)-(1)]/*)*/;
  4221. }
  4222. _j=(_j)+(1);
  4223. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_138));
  4224. /*]*/
  4225. _i=(_i)+(1);
  4226. }
  4227. }/*]*/
  4228. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_14520a));
  4229. /*]*/
  4230. }
  4231. /*FI]*/
  4232. /*[IF*/
  4233. if(_ensure_check){
  4234. /*[IF*/
  4235. if(((/*RF2*/(C)->_ensure_assertion/*48*/))!=((void*)(NULL))){
  4236. r214compile_to_c_old((T214*)((/*RF2*/(C)->_ensure_assertion/*48*/)));
  4237. }
  4238. /*FI]*/
  4239. }
  4240. /*FI]*/
  4241. /*[IF*/
  4242. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  4243. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_23008));
  4244. /*]*/
  4245. r215compile_to_c((T215*)((/*RF2*/(C)->_rescue_compound/*44*/)));
  4246. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_47752));
  4247. /*]*/
  4248. }
  4249. /*FI]*/
  4250. /*[IF*/
  4251. if(((/*RF2*/(C)->_local_vars/*36*/))!=((void*)(NULL))){
  4252. r169initialize_expanded((T169*)((/*RF2*/(C)->_local_vars/*36*/)));
  4253. }
  4254. /*FI]*/
  4255. /*[IF*/
  4256. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  4257. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_7436));
  4258. /*]*/
  4259. }
  4260. /*FI]*/
  4261. /*[IF*/
  4262. if(((/*RF2*/(C)->_require_assertion/*32*/))!=((void*)(NULL))){
  4263. r376compile_to_c((T376*)((/*RF2*/(C)->_require_assertion/*32*/)));
  4264. }
  4265. /*FI]*/
  4266. /*[IF*/
  4267. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  4268. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_57680));
  4269. /*]*/
  4270. /*[IF*/
  4271. if(_no_check){
  4272. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_11988));
  4273. /*]*/
  4274. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_14520));
  4275. /*]*/
  4276. }
  4277. /*FI]*/
  4278. }
  4279. /*FI]*/
  4280. }
  4281.  
  4282.  
  4283. void r397c_define_closing(T397* C){
  4284. /*[IF*/
  4285. if(r47ensure_check((T47*)(oBC13run_control))){
  4286. /*[IF*/
  4287. if(((/*RF2*/(C)->_ensure_assertion/*48*/))!=((void*)(NULL))){
  4288. r214compile_to_c((T214*)((/*RF2*/(C)->_ensure_assertion/*48*/)));
  4289. }
  4290. /*FI]*/
  4291. }
  4292. /*FI]*/
  4293. /*[IF*/
  4294. if(r397use_current(C)){
  4295. /*[IF*/
  4296. if((X82to_string((/*RF2*/(C)->_name/*12*/)))!=((void*)(((T0*)ms15_8750)))){
  4297. r325current_class_invariant((/*RF2*/(C)->_current_type/*8*/));
  4298. }
  4299. /*FI]*/
  4300. }
  4301. /*FI]*/
  4302. /*[IF*/
  4303. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  4304. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_25380));
  4305. /*]*/
  4306. }
  4307. /*FI]*/
  4308. /*[IF*/
  4309. if(r47no_check((T47*)(oBC13run_control))){
  4310. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_19400));
  4311. /*]*/
  4312. }
  4313. /*FI]*/
  4314. }
  4315.  
  4316.  
  4317. void r397initialize(T397* C){
  4318. (/*SFN*/C->_arguments)=(/*RF2*/((T306*)((/*RF2*/(C)->_base_feature/*24*/)))->_arguments/*20*/);
  4319. /*[IF*/
  4320. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  4321. /*[IF*/
  4322. if(!(r178is_runnable((T178*)((/*RF2*/(C)->_arguments/*28*/)),(/*RF2*/(C)->_current_type/*8*/)))){
  4323. {T178*n=((T178*)malloc(sizeof(*n))/*12*/);
  4324. *n=M178;
  4325. r178with(n,(/*RF2*/(C)->_arguments/*28*/),(/*RF2*/(C)->_current_type/*8*/));
  4326. (/*SFN*/C->_arguments)=((T0*)n);
  4327. }
  4328. }
  4329. /*FI]*/
  4330. }
  4331. /*FI]*/
  4332. (/*SFN*/C->_local_vars)=(/*RF2*/((T306*)((/*RF2*/(C)->_base_feature/*24*/)))->_local_vars/*40*/);
  4333. /*[IF*/
  4334. if(((/*RF2*/(C)->_local_vars/*36*/))!=((void*)(NULL))){
  4335. (/*SFN*/C->_local_vars)=r169to_runnable((T169*)((/*RF2*/(C)->_local_vars/*36*/)),(/*RF2*/(C)->_current_type/*8*/));
  4336. }
  4337. /*FI]*/
  4338. (/*SFN*/C->_routine_body)=(/*RF2*/((T306*)((/*RF2*/(C)->_base_feature/*24*/)))->_routine_body/*44*/);
  4339. /*[IF*/
  4340. if(((/*RF2*/(C)->_routine_body/*40*/))!=((void*)(NULL))){
  4341. (/*SFN*/C->_routine_body)=r215to_runnable((T215*)((/*RF2*/(C)->_routine_body/*40*/)),(/*RF2*/(C)->_current_type/*8*/));
  4342. }
  4343. /*FI]*/
  4344. /*[IF*/
  4345. if(r47require_check((T47*)(oBC13run_control))){
  4346. (/*SFN*/C->_require_assertion)=r397run_require(C);
  4347. }
  4348. /*FI]*/
  4349. /*[IF*/
  4350. if(r47ensure_check((T47*)(oBC13run_control))){
  4351. (/*SFN*/C->_ensure_assertion)=r397run_ensure(C);
  4352. }
  4353. /*FI]*/
  4354. (/*SFN*/C->_rescue_compound)=(/*RF2*/((T306*)((/*RF2*/(C)->_base_feature/*24*/)))->_rescue_compound/*48*/);
  4355. /*[IF*/
  4356. if(((/*RF2*/(C)->_rescue_compound/*44*/))==((void*)(NULL))){
  4357. (/*SFN*/C->_rescue_compound)=r397default_rescue_compound(C);
  4358. }
  4359. /*FI]*/
  4360. /*[IF*/
  4361. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  4362. /*[IRF3.3set_used*/((((T380*)((T380*)(oBC13exceptions_handler))))->_used)=(1);
  4363. /*]*/
  4364. (/*SFN*/C->_rescue_compound)=r215to_runnable((T215*)((/*RF2*/(C)->_rescue_compound/*44*/)),(/*RF2*/(C)->_current_type/*8*/));
  4365. }
  4366. /*FI]*/
  4367. r363register_procedure((T0*)C);
  4368. }
  4369.  
  4370.  
  4371. void r397address_of_c_define_wrapper(T397* C,T0* a1){
  4372. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  4373. /*]*/
  4374. /*[IF*/
  4375. {/*AT*/r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  4376. }
  4377. /*FI]*/
  4378. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  4379. r397address_of_wrapper_name_in(C,oBC334c_code);
  4380. r7extend((T7*)(oBC334c_code),((T3)'\50'));
  4381. X52c_type_for_external_in((/*RF2*/(C)->_current_type/*8*/),oBC334c_code);
  4382. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  4383. r7extend((T7*)(oBC334c_code),((T3)'C'));
  4384. /*[IF*/
  4385. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  4386. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  4387. r178external_prototype_in((T178*)((/*RF2*/(C)->_arguments/*28*/)),oBC334c_code);
  4388. }
  4389. /*FI]*/
  4390. r7extend((T7*)(oBC334c_code),((T3)'\51'));
  4391. r325put_c_heading((T325*)(oBC13cpp),oBC334c_code);
  4392. r338define_body_of((T0*)C);
  4393. }
  4394.  
  4395.  
  4396. void r397std_compute_stupid_switch(T397* C,T0* a1){
  4397. T0* _rt=NULL;
  4398. _rt=/*(IRF4.1result_type*/NULL/*)*/;
  4399. /*[IF*/
  4400. if(((_rt)!=((void*)(NULL)))&&(X52is_user_expanded(_rt))){
  4401. (/*SFN*/C->_stupid_switch_state)=21;
  4402. }
  4403. /*FI]*/
  4404. /*[IF*/
  4405. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(24)){
  4406. /*[IF*/
  4407. if(((/*RF2*/(C)->_routine_body/*40*/))!=((void*)(NULL))){
  4408. /*[IF*/
  4409. if(!(r215stupid_switch((T215*)((/*RF2*/(C)->_routine_body/*40*/)),a1))){
  4410. (/*SFN*/C->_stupid_switch_state)=21;
  4411. }
  4412. /*FI]*/
  4413. }
  4414. /*FI]*/
  4415. }
  4416. /*FI]*/
  4417. /*[IF*/
  4418. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(24)){
  4419. /*[IF*/
  4420. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  4421. /*[IF*/
  4422. if(!(r215stupid_switch((T215*)((/*RF2*/(C)->_rescue_compound/*44*/)),a1))){
  4423. (/*SFN*/C->_stupid_switch_state)=21;
  4424. }
  4425. /*FI]*/
  4426. }
  4427. /*FI]*/
  4428. }
  4429. /*FI]*/
  4430. /*[IF*/
  4431. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(24)){
  4432. (/*SFN*/C->_stupid_switch_state)=22;
  4433. }
  4434. /*FI]*/
  4435. }
  4436.  
  4437.  
  4438. void r397routine_afd_check(T397* C){
  4439. /*[IF*/
  4440. if(((/*RF2*/(C)->_require_assertion/*32*/))!=((void*)(NULL))){
  4441. r376afd_check((T376*)((/*RF2*/(C)->_require_assertion/*32*/)));
  4442. }
  4443. /*FI]*/
  4444. /*[IF*/
  4445. if(((/*RF2*/(C)->_routine_body/*40*/))!=((void*)(NULL))){
  4446. r215afd_check((T215*)((/*RF2*/(C)->_routine_body/*40*/)));
  4447. }
  4448. /*FI]*/
  4449. /*[IF*/
  4450. if(((/*RF2*/(C)->_rescue_compound/*44*/))!=((void*)(NULL))){
  4451. r215afd_check((T215*)((/*RF2*/(C)->_rescue_compound/*44*/)));
  4452. }
  4453. /*FI]*/
  4454. /*[IF*/
  4455. if(((/*RF2*/(C)->_ensure_assertion/*48*/))!=((void*)(NULL))){
  4456. r214afd_check((T214*)((/*RF2*/(C)->_ensure_assertion/*48*/)));
  4457. }
  4458. /*FI]*/
  4459. }
  4460.  
  4461.  
  4462. T0* r397run_require(T397* C){
  4463. T0* R=NULL;
  4464. R=r51run_require((T51*)(X52base_class((/*RF2*/(C)->_current_type/*8*/))),(T0*)C);
  4465. return R;
  4466. }
  4467.  
  4468.  
  4469. void r397mapping_name(T397* C){
  4470. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  4471. /*]*/
  4472. r7extend((T7*)(oBC334c_code),((T3)'r'));
  4473. r2append_in(r397id(C),oBC334c_code);
  4474. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),oBC334c_code);
  4475. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  4476. /*]*/
  4477. }
  4478.  
  4479.  
  4480. void r397c_initialize_ds_one_by_one(T397* C){
  4481. r7copy((T7*)(oBC334c_code),((T0*)ms334_36950));
  4482. r397c_frame_descriptor_name_in(C,oBC334c_code);
  4483. r7append((T7*)(oBC334c_code),((T0*)ms14_138));
  4484. /*[IF*/
  4485. if(r397use_current(C)){
  4486. r7append((T7*)(oBC334c_code),((T0*)ms334_18175));
  4487. }
  4488. else{
  4489. r7append((T7*)(oBC334c_code),((T0*)ms334_10999));
  4490. }
  4491. /*FI]*/
  4492. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  4493. /*]*/
  4494. {T68 se_tmp0;
  4495. r325put_position_in_ds(/*(IRF4.6start_position*/(*(se_tmp0=r306start_position(((T306*)((/*RF2*/(C)->_base_feature/*24*/)))),&se_tmp0))/*)*/);
  4496. }
  4497. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_11466));
  4498. /*]*/
  4499. /*[IF*/
  4500. if(((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))>(0)){
  4501. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms334_11880));
  4502. /*]*/
  4503. }
  4504. /*FI]*/
  4505. }
  4506.  
  4507.  
  4508. T6 r397use_current(T397* C){
  4509. T6 R=0;
  4510. {int z1=(/*RF2*/(C)->_use_current_state/*16*/);
  4511.  
  4512. if((22==z1)){
  4513. R=1;
  4514. }
  4515.  else 
  4516. if((21==z1)){
  4517. }
  4518.  else 
  4519. if((23==z1)){
  4520. (/*SFN*/C->_use_current_state)=24;
  4521. /*[IRF3.4compute_use_current*/r397std_compute_use_current(C);
  4522. /*]*/
  4523. R=((/*RF2*/(C)->_use_current_state/*16*/))==(22);
  4524. }
  4525.  else {R=1;
  4526. }}
  4527. return R;
  4528. }
  4529.  
  4530.  
  4531. T6 r397is_exported_in(T397* C,T0* a1){
  4532. T6 R=0;
  4533. R=r99gives_permission_to((T99*)(r397clients(C)),a1);
  4534. return R;
  4535. }
  4536.  
  4537.  
  4538. T0* r397default_rescue_compound(T397* C){
  4539. T0* R=NULL;
  4540. R=r50get_default_rescue((T50*)(r397run_class(C)),(/*RF2*/(C)->_name/*12*/));
  4541. return R;
  4542. }
  4543.  
  4544.  
  4545. T0* r397run_class(T397* C){
  4546. T0* R=NULL;
  4547. R=X52run_class((/*RF2*/(C)->_current_type/*8*/));
  4548. return R;
  4549. }
  4550.  
  4551.  
  4552. void r397fatal_error(T0* a1){
  4553. /*[IRF3.6append*/{T0* b1=a1;
  4554. r7append((T7*)(oBC66explanation),b1);
  4555. }/*]*/
  4556. r66print_as_fatal_error((T66*)(oBC13eh));
  4557. }
  4558.  
  4559.  
  4560. T0* r397stupid_switch(T397* C,T0* a1){
  4561. T0* R=NULL;
  4562. {int z1=(/*RF2*/(C)->_stupid_switch_state/*20*/);
  4563.  
  4564. if((22==z1)){
  4565. R=((T0*)ms397_5460);
  4566. }
  4567.  else 
  4568. if((21==z1)){
  4569. }
  4570.  else 
  4571. if((23==z1)){
  4572. (/*SFN*/C->_stupid_switch_state)=24;
  4573. /*[IRF3.6compute_stupid_switch*/{T397* C1=C;
  4574. T0* b1=a1;
  4575. r397std_compute_stupid_switch(C1,b1);
  4576. }/*]*/
  4577. /*[IF*/
  4578. if(((/*RF2*/(C)->_stupid_switch_state/*20*/))==(22)){
  4579. R=((T0*)ms397_5460);
  4580. }
  4581. /*FI]*/
  4582. }
  4583.  else {}}
  4584. return R;
  4585. }
  4586.  
  4587.  
  4588. void r397define_prototype(T397* C){
  4589. T6 _no_check=0;
  4590. T2 _mem_id=0;
  4591. _no_check=r47no_check((T47*)(oBC13run_control));
  4592. /*[IF*/
  4593. if(r47no_check((T47*)(oBC13run_control))){
  4594. /*[IRF3.3reset*/((((T203*)((T203*)(oBC13c_frame_descriptor_local_count))))->_value)=(0);
  4595. /*]*/
  4596. /*[IRF3.3clear*/((((T7*)((T7*)(oBC13c_frame_descriptor_format))))->_count)=(0);
  4597. /*]*/
  4598. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\42'));
  4599. /*[IRF3.3clear*/((((T7*)((T7*)(oBC13c_frame_descriptor_locals))))->_count)=(0);
  4600. /*]*/
  4601. }
  4602. /*FI]*/
  4603. _mem_id=r397id(C);
  4604. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  4605. /*]*/
  4606. /*[IF*/
  4607. {/*AT*/r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  4608. }
  4609. /*FI]*/
  4610. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  4611. r7extend((T7*)(oBC334c_code),((T3)'r'));
  4612. r2append_in(_mem_id,oBC334c_code);
  4613. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),oBC334c_code);
  4614. r7extend((T7*)(oBC334c_code),((T3)'\50'));
  4615. /*[IF*/
  4616. if(_no_check){
  4617. r7append((T7*)(oBC334c_code),((T0*)ms334_56160));
  4618. /*[IF*/
  4619. if((r397use_current(C))||(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL)))){
  4620. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  4621. }
  4622. /*FI]*/
  4623. }
  4624. /*FI]*/
  4625. /*[IF*/
  4626. if(r397use_current(C)){
  4627. X52c_type_for_target_in((/*RF2*/(C)->_current_type/*8*/),oBC334c_code);
  4628. r7extend((T7*)(oBC334c_code),((T3)'\40'));
  4629. r7extend((T7*)(oBC334c_code),((T3)'C'));
  4630. X52c_frame_descriptor((/*RF2*/(C)->_current_type/*8*/));
  4631. /*[IF*/
  4632. if(((/*RF2*/(C)->_arguments/*28*/))!=((void*)(NULL))){
  4633. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  4634. }
  4635. /*FI]*/
  4636. }
  4637. /*FI]*/
  4638. /*[IF*/
  4639. if(((/*RF2*/(C)->_arguments/*28*/))==((void*)(NULL))){
  4640. /*[IF*/
  4641. if(_no_check){
  4642. }
  4643.  else if(!(r397use_current(C))){
  4644. r7append((T7*)(oBC334c_code),((T0*)ms14_1736a));
  4645. }
  4646. /*FI]*/
  4647. }
  4648. else{
  4649. r178compile_to_c_in((T178*)((/*RF2*/(C)->_arguments/*28*/)),oBC334c_code);
  4650. }
  4651. /*FI]*/
  4652. r7extend((T7*)(oBC334c_code),((T3)'\51'));
  4653. r325put_c_heading((T325*)(oBC13cpp),oBC334c_code);
  4654. /*[IRF3.3swap_on_c*/((((T325*)((T325*)(oBC13cpp))))->_current_out)=(oBC325out_c);
  4655. /*]*/
  4656. }
  4657.  
  4658.  
  4659. void r397c_frame_descriptor(T397* C){
  4660. /*[IF*/
  4661. if(r47no_check((T47*)(oBC13run_control))){
  4662. r7copy((T7*)(oBC334c_code),((T0*)ms334_23340));
  4663. r397c_frame_descriptor_name_in(C,oBC334c_code);
  4664. r325put_extern7((T325*)(oBC13cpp),oBC334c_code);
  4665. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4666. T3 b1=((T3)'\173');
  4667. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4668. }/*]*/
  4669. /*]*/
  4670. r397put_c_name_tag(C);
  4671. /*[IRF3.3clear*/((((T7*)((T7*)(oBC334c_code))))->_count)=(0);
  4672. /*]*/
  4673. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  4674. /*[IF*/
  4675. if(r397use_current(C)){
  4676. r7extend((T7*)(oBC334c_code),((T3)'1'));
  4677. }
  4678. else{
  4679. r7extend((T7*)(oBC334c_code),((T3)'0'));
  4680. }
  4681. /*FI]*/
  4682. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  4683. /*[IRF3.5append_in*/r2append_in(((T2)((/*RF2*/((T203*)(oBC13c_frame_descriptor_local_count))->_value/*0*/))),oBC334c_code);
  4684. /*]*/
  4685. r7extend((T7*)(oBC334c_code),((T3)'\54'));
  4686. r7append((T7*)(oBC334c_code),oBC13c_frame_descriptor_format);
  4687. r7append((T7*)(oBC334c_code),((T0*)ms334_2226));
  4688. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),oBC334c_code);
  4689. /*]*/
  4690. }
  4691. /*FI]*/
  4692. }
  4693.  
  4694.  
  4695. void r397address_of_c_mapping(T397* C){
  4696. /*[IF*/
  4697. if(r47boost((T47*)(oBC13run_control))){
  4698. /*[IF*/
  4699. if(r397use_current(C)){
  4700. r397mapping_name(C);
  4701. }
  4702. else{
  4703. r397address_of_c_mapping_wrapper(C);
  4704. }
  4705. /*FI]*/
  4706. }
  4707. else{
  4708. r397address_of_c_mapping_wrapper(C);
  4709. }
  4710. /*FI]*/
  4711. }
  4712.  
  4713.  
  4714. void r397c_frame_descriptor_name_in(T397* C,T0* a1){
  4715. r7extend(((T7*)a1),((T3)'f'));
  4716. r2append_in(r397id(C),a1);
  4717. X82mapping_c_in((/*RF2*/(C)->_name/*12*/),a1);
  4718. }
  4719.  
  4720.  
  4721. void r39make(T39* C){
  4722. r42put((T42*)(oBC39id_memory),1,((T0*)ms15_6307));
  4723. r42put((T42*)(oBC39id_memory),2,((T0*)ms15_6643));
  4724. r42put((T42*)(oBC39id_memory),3,((T0*)ms15_9801));
  4725. r42put((T42*)(oBC39id_memory),4,((T0*)ms15_1168));
  4726. r42put((T42*)(oBC39id_memory),5,((T0*)ms15_4728));
  4727. r42put((T42*)(oBC39id_memory),6,((T0*)ms15_6405));
  4728. r42put((T42*)(oBC39id_memory),7,((T0*)ms15_4956));
  4729. r42put((T42*)(oBC39id_memory),8,((T0*)ms15_6776));
  4730. r42put((T42*)(oBC39id_memory),9,((T0*)ms15_58075));
  4731. r42put((T42*)(oBC39id_memory),10,((T0*)ms15_696));
  4732. (/*SFN*/C->_max_id)=10;
  4733. r39disk_restore(C);
  4734. }
  4735.  
  4736.  
  4737. T0* r39string_aliaser(void){
  4738. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  4739. {T21*n=((T21*)malloc(1));
  4740. oBC13string_aliaser=((T0*)n);
  4741. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  4742. r23put((T23*)(oBC21memory),b1,b1);
  4743. }/*]*/
  4744. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  4745. r23put((T23*)(oBC21memory),b1,b1);
  4746. }/*]*/
  4747. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  4748. r23put((T23*)(oBC21memory),b1,b1);
  4749. }/*]*/
  4750. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  4751. r23put((T23*)(oBC21memory),b1,b1);
  4752. }/*]*/
  4753. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  4754. r23put((T23*)(oBC21memory),b1,b1);
  4755. }/*]*/
  4756. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  4757. r23put((T23*)(oBC21memory),b1,b1);
  4758. }/*]*/
  4759. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  4760. r23put((T23*)(oBC21memory),b1,b1);
  4761. }/*]*/
  4762. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  4763. r23put((T23*)(oBC21memory),b1,b1);
  4764. }/*]*/
  4765. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  4766. r23put((T23*)(oBC21memory),b1,b1);
  4767. }/*]*/
  4768. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  4769. r23put((T23*)(oBC21memory),b1,b1);
  4770. }/*]*/
  4771. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  4772. r23put((T23*)(oBC21memory),b1,b1);
  4773. }/*]*/
  4774. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  4775. r23put((T23*)(oBC21memory),b1,b1);
  4776. }/*]*/
  4777. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  4778. r23put((T23*)(oBC21memory),b1,b1);
  4779. }/*]*/
  4780. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  4781. r23put((T23*)(oBC21memory),b1,b1);
  4782. }/*]*/
  4783. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  4784. r23put((T23*)(oBC21memory),b1,b1);
  4785. }/*]*/
  4786. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  4787. r23put((T23*)(oBC21memory),b1,b1);
  4788. }/*]*/
  4789. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  4790. r23put((T23*)(oBC21memory),b1,b1);
  4791. }/*]*/
  4792. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  4793. r23put((T23*)(oBC21memory),b1,b1);
  4794. }/*]*/
  4795. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  4796. r23put((T23*)(oBC21memory),b1,b1);
  4797. }/*]*/
  4798. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  4799. r23put((T23*)(oBC21memory),b1,b1);
  4800. }/*]*/
  4801. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  4802. r23put((T23*)(oBC21memory),b1,b1);
  4803. }/*]*/
  4804. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  4805. r23put((T23*)(oBC21memory),b1,b1);
  4806. }/*]*/
  4807. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  4808. r23put((T23*)(oBC21memory),b1,b1);
  4809. }/*]*/
  4810. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  4811. r23put((T23*)(oBC21memory),b1,b1);
  4812. }/*]*/
  4813. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  4814. r23put((T23*)(oBC21memory),b1,b1);
  4815. }/*]*/
  4816. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  4817. r23put((T23*)(oBC21memory),b1,b1);
  4818. }/*]*/
  4819. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  4820. r23put((T23*)(oBC21memory),b1,b1);
  4821. }/*]*/
  4822. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  4823. r23put((T23*)(oBC21memory),b1,b1);
  4824. }/*]*/
  4825. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  4826. r23put((T23*)(oBC21memory),b1,b1);
  4827. }/*]*/
  4828. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  4829. r23put((T23*)(oBC21memory),b1,b1);
  4830. }/*]*/
  4831. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  4832. r23put((T23*)(oBC21memory),b1,b1);
  4833. }/*]*/
  4834. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  4835. r23put((T23*)(oBC21memory),b1,b1);
  4836. }/*]*/
  4837. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  4838. r23put((T23*)(oBC21memory),b1,b1);
  4839. }/*]*/
  4840. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  4841. r23put((T23*)(oBC21memory),b1,b1);
  4842. }/*]*/
  4843. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  4844. r23put((T23*)(oBC21memory),b1,b1);
  4845. }/*]*/
  4846. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  4847. r23put((T23*)(oBC21memory),b1,b1);
  4848. }/*]*/
  4849. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  4850. r23put((T23*)(oBC21memory),b1,b1);
  4851. }/*]*/
  4852. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  4853. r23put((T23*)(oBC21memory),b1,b1);
  4854. }/*]*/
  4855. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  4856. r23put((T23*)(oBC21memory),b1,b1);
  4857. }/*]*/
  4858. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  4859. r23put((T23*)(oBC21memory),b1,b1);
  4860. }/*]*/
  4861. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  4862. r23put((T23*)(oBC21memory),b1,b1);
  4863. }/*]*/
  4864. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  4865. r23put((T23*)(oBC21memory),b1,b1);
  4866. }/*]*/
  4867. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  4868. r23put((T23*)(oBC21memory),b1,b1);
  4869. }/*]*/
  4870. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  4871. r23put((T23*)(oBC21memory),b1,b1);
  4872. }/*]*/
  4873. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  4874. r23put((T23*)(oBC21memory),b1,b1);
  4875. }/*]*/
  4876. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  4877. r23put((T23*)(oBC21memory),b1,b1);
  4878. }/*]*/
  4879. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  4880. r23put((T23*)(oBC21memory),b1,b1);
  4881. }/*]*/
  4882. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  4883. r23put((T23*)(oBC21memory),b1,b1);
  4884. }/*]*/
  4885. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  4886. r23put((T23*)(oBC21memory),b1,b1);
  4887. }/*]*/
  4888. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  4889. r23put((T23*)(oBC21memory),b1,b1);
  4890. }/*]*/
  4891. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  4892. r23put((T23*)(oBC21memory),b1,b1);
  4893. }/*]*/
  4894. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  4895. r23put((T23*)(oBC21memory),b1,b1);
  4896. }/*]*/
  4897. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  4898. r23put((T23*)(oBC21memory),b1,b1);
  4899. }/*]*/
  4900. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  4901. r23put((T23*)(oBC21memory),b1,b1);
  4902. }/*]*/
  4903. r21add2(((T0*)ms15_22524));
  4904. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  4905. r23put((T23*)(oBC21memory),b1,b1);
  4906. }/*]*/
  4907. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  4908. r23put((T23*)(oBC21memory),b1,b1);
  4909. }/*]*/
  4910. r21add2(((T0*)ms15_29246));
  4911. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  4912. r23put((T23*)(oBC21memory),b1,b1);
  4913. }/*]*/
  4914. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  4915. r23put((T23*)(oBC21memory),b1,b1);
  4916. }/*]*/
  4917. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  4918. r23put((T23*)(oBC21memory),b1,b1);
  4919. }/*]*/
  4920. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  4921. r23put((T23*)(oBC21memory),b1,b1);
  4922. }/*]*/
  4923. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  4924. r23put((T23*)(oBC21memory),b1,b1);
  4925. }/*]*/
  4926. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  4927. r23put((T23*)(oBC21memory),b1,b1);
  4928. }/*]*/
  4929. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  4930. r23put((T23*)(oBC21memory),b1,b1);
  4931. }/*]*/
  4932. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  4933. r23put((T23*)(oBC21memory),b1,b1);
  4934. }/*]*/
  4935. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  4936. r23put((T23*)(oBC21memory),b1,b1);
  4937. }/*]*/
  4938. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  4939. r23put((T23*)(oBC21memory),b1,b1);
  4940. }/*]*/
  4941. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  4942. r23put((T23*)(oBC21memory),b1,b1);
  4943. }/*]*/
  4944. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  4945. r23put((T23*)(oBC21memory),b1,b1);
  4946. }/*]*/
  4947. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  4948. r23put((T23*)(oBC21memory),b1,b1);
  4949. }/*]*/
  4950. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  4951. r23put((T23*)(oBC21memory),b1,b1);
  4952. }/*]*/
  4953. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  4954. r23put((T23*)(oBC21memory),b1,b1);
  4955. }/*]*/
  4956. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  4957. r23put((T23*)(oBC21memory),b1,b1);
  4958. }/*]*/
  4959. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  4960. r23put((T23*)(oBC21memory),b1,b1);
  4961. }/*]*/
  4962. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  4963. r23put((T23*)(oBC21memory),b1,b1);
  4964. }/*]*/
  4965. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  4966. r23put((T23*)(oBC21memory),b1,b1);
  4967. }/*]*/
  4968. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  4969. r23put((T23*)(oBC21memory),b1,b1);
  4970. }/*]*/
  4971. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  4972. r23put((T23*)(oBC21memory),b1,b1);
  4973. }/*]*/
  4974. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  4975. r23put((T23*)(oBC21memory),b1,b1);
  4976. }/*]*/
  4977. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  4978. r23put((T23*)(oBC21memory),b1,b1);
  4979. }/*]*/
  4980. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  4981. r23put((T23*)(oBC21memory),b1,b1);
  4982. }/*]*/
  4983. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  4984. r23put((T23*)(oBC21memory),b1,b1);
  4985. }/*]*/
  4986. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  4987. r23put((T23*)(oBC21memory),b1,b1);
  4988. }/*]*/
  4989. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  4990. r23put((T23*)(oBC21memory),b1,b1);
  4991. }/*]*/
  4992. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  4993. r23put((T23*)(oBC21memory),b1,b1);
  4994. }/*]*/
  4995. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  4996. r23put((T23*)(oBC21memory),b1,b1);
  4997. }/*]*/
  4998. r21add2(((T0*)ms15_22596));
  4999. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  5000. r23put((T23*)(oBC21memory),b1,b1);
  5001. }/*]*/
  5002. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  5003. r23put((T23*)(oBC21memory),b1,b1);
  5004. }/*]*/
  5005. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  5006. r23put((T23*)(oBC21memory),b1,b1);
  5007. }/*]*/
  5008. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  5009. r23put((T23*)(oBC21memory),b1,b1);
  5010. }/*]*/
  5011. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  5012. r23put((T23*)(oBC21memory),b1,b1);
  5013. }/*]*/
  5014. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  5015. r23put((T23*)(oBC21memory),b1,b1);
  5016. }/*]*/
  5017. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  5018. r23put((T23*)(oBC21memory),b1,b1);
  5019. }/*]*/
  5020. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  5021. r23put((T23*)(oBC21memory),b1,b1);
  5022. }/*]*/
  5023. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  5024. r23put((T23*)(oBC21memory),b1,b1);
  5025. }/*]*/
  5026. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  5027. r23put((T23*)(oBC21memory),b1,b1);
  5028. }/*]*/
  5029. r21add2(((T0*)ms15_60016));
  5030. r21add2(((T0*)ms15_26880));
  5031. r21add2(((T0*)ms15_33240));
  5032. r21add2(((T0*)ms15_21624));
  5033. r21add2(((T0*)ms15_60060));
  5034. r21add2(((T0*)ms15_26908));
  5035. r21add2(((T0*)ms15_33270));
  5036. r21add2(((T0*)ms15_21648));
  5037. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  5038. r23put((T23*)(oBC21memory),b1,b1);
  5039. }/*]*/
  5040. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  5041. r23put((T23*)(oBC21memory),b1,b1);
  5042. }/*]*/
  5043. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  5044. r23put((T23*)(oBC21memory),b1,b1);
  5045. }/*]*/
  5046. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  5047. r23put((T23*)(oBC21memory),b1,b1);
  5048. }/*]*/
  5049. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  5050. r23put((T23*)(oBC21memory),b1,b1);
  5051. }/*]*/
  5052. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  5053. r23put((T23*)(oBC21memory),b1,b1);
  5054. }/*]*/
  5055. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  5056. r23put((T23*)(oBC21memory),b1,b1);
  5057. }/*]*/
  5058. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  5059. r23put((T23*)(oBC21memory),b1,b1);
  5060. }/*]*/
  5061. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  5062. r23put((T23*)(oBC21memory),b1,b1);
  5063. }/*]*/
  5064. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  5065. r23put((T23*)(oBC21memory),b1,b1);
  5066. }/*]*/
  5067. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  5068. r23put((T23*)(oBC21memory),b1,b1);
  5069. }/*]*/
  5070. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  5071. r23put((T23*)(oBC21memory),b1,b1);
  5072. }/*]*/
  5073. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  5074. r23put((T23*)(oBC21memory),b1,b1);
  5075. }/*]*/
  5076. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  5077. r23put((T23*)(oBC21memory),b1,b1);
  5078. }/*]*/
  5079. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  5080. r23put((T23*)(oBC21memory),b1,b1);
  5081. }/*]*/
  5082. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  5083. r23put((T23*)(oBC21memory),b1,b1);
  5084. }/*]*/
  5085. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  5086. r23put((T23*)(oBC21memory),b1,b1);
  5087. }/*]*/
  5088. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  5089. r23put((T23*)(oBC21memory),b1,b1);
  5090. }/*]*/
  5091. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  5092. r23put((T23*)(oBC21memory),b1,b1);
  5093. }/*]*/
  5094. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  5095. r23put((T23*)(oBC21memory),b1,b1);
  5096. }/*]*/
  5097. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  5098. r23put((T23*)(oBC21memory),b1,b1);
  5099. }/*]*/
  5100. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  5101. r23put((T23*)(oBC21memory),b1,b1);
  5102. }/*]*/
  5103. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  5104. r23put((T23*)(oBC21memory),b1,b1);
  5105. }/*]*/
  5106. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  5107. r23put((T23*)(oBC21memory),b1,b1);
  5108. }/*]*/
  5109. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  5110. r23put((T23*)(oBC21memory),b1,b1);
  5111. }/*]*/
  5112. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  5113. r23put((T23*)(oBC21memory),b1,b1);
  5114. }/*]*/
  5115. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  5116. r23put((T23*)(oBC21memory),b1,b1);
  5117. }/*]*/
  5118. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  5119. r23put((T23*)(oBC21memory),b1,b1);
  5120. }/*]*/
  5121. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  5122. r23put((T23*)(oBC21memory),b1,b1);
  5123. }/*]*/
  5124. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  5125. r23put((T23*)(oBC21memory),b1,b1);
  5126. }/*]*/
  5127. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  5128. r23put((T23*)(oBC21memory),b1,b1);
  5129. }/*]*/
  5130. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  5131. r23put((T23*)(oBC21memory),b1,b1);
  5132. }/*]*/
  5133. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  5134. r23put((T23*)(oBC21memory),b1,b1);
  5135. }/*]*/
  5136. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  5137. r23put((T23*)(oBC21memory),b1,b1);
  5138. }/*]*/
  5139. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  5140. r23put((T23*)(oBC21memory),b1,b1);
  5141. }/*]*/
  5142. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  5143. r23put((T23*)(oBC21memory),b1,b1);
  5144. }/*]*/
  5145. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  5146. r23put((T23*)(oBC21memory),b1,b1);
  5147. }/*]*/
  5148. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  5149. r23put((T23*)(oBC21memory),b1,b1);
  5150. }/*]*/
  5151. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  5152. r23put((T23*)(oBC21memory),b1,b1);
  5153. }/*]*/
  5154. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  5155. r23put((T23*)(oBC21memory),b1,b1);
  5156. }/*]*/
  5157. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  5158. r23put((T23*)(oBC21memory),b1,b1);
  5159. }/*]*/
  5160. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  5161. r23put((T23*)(oBC21memory),b1,b1);
  5162. }/*]*/
  5163. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  5164. r23put((T23*)(oBC21memory),b1,b1);
  5165. }/*]*/
  5166. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  5167. r23put((T23*)(oBC21memory),b1,b1);
  5168. }/*]*/
  5169. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  5170. r23put((T23*)(oBC21memory),b1,b1);
  5171. }/*]*/
  5172. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  5173. r23put((T23*)(oBC21memory),b1,b1);
  5174. }/*]*/
  5175. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  5176. r23put((T23*)(oBC21memory),b1,b1);
  5177. }/*]*/
  5178. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  5179. r23put((T23*)(oBC21memory),b1,b1);
  5180. }/*]*/
  5181. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  5182. r23put((T23*)(oBC21memory),b1,b1);
  5183. }/*]*/
  5184. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  5185. r23put((T23*)(oBC21memory),b1,b1);
  5186. }/*]*/
  5187. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  5188. r23put((T23*)(oBC21memory),b1,b1);
  5189. }/*]*/
  5190. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  5191. r23put((T23*)(oBC21memory),b1,b1);
  5192. }/*]*/
  5193. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  5194. r23put((T23*)(oBC21memory),b1,b1);
  5195. }/*]*/
  5196. /*]*/
  5197. }
  5198. }}
  5199. return oBC13string_aliaser;
  5200. }
  5201. T0*oBC39temporary_type_name=NULL;
  5202.  
  5203.  
  5204. T0* r39alias_of(T2 a1){
  5205. T0* R=NULL;
  5206. R=r42fast_key_at((T42*)(oBC39id_memory),a1);
  5207. return R;
  5208. }
  5209.  
  5210.  
  5211. T0* r39system_tools(void){
  5212. if(fBC13system_tools==0){fBC13system_tools=1;{
  5213. {T43*n=((T43*)malloc(sizeof(*n))/*17*/);
  5214. *n=M43;
  5215. oBC13system_tools=((T0*)n);
  5216. r43make(n);
  5217. }
  5218. }}
  5219. return oBC13system_tools;
  5220. }
  5221.  
  5222.  
  5223. void r39disk_restore(T39* C){
  5224. T2 _state=0;
  5225. T0* _sfr=NULL;
  5226. T2 _item_count=0;
  5227. T2 _id=0;
  5228. T0* _type_name=NULL;
  5229. T3 _cc=0;
  5230. {T40*n=((T40*)malloc(sizeof(*n))/*13*/);
  5231. *n=M40;
  5232. /*[IRF3.1make*//*]*/
  5233. _sfr=((T0*)n);
  5234. }
  5235. r35sfr_connect((T35*)(oBC13echo),_sfr,r43id_file_path((T43*)(r39system_tools())));
  5236. /*[IF*/
  5237. if(/*(IRF4.7is_connected*/((/*RF2*/(((T40*)_sfr))->_path/*1*/))!=(NULL)/*)*/){
  5238. /*[IF*/
  5239. if(r40end_of_input(((T40*)_sfr))){
  5240. _state=6;
  5241. }
  5242. /*FI]*/
  5243. while (!((_state)>(4)))
  5244. {
  5245. r40read_character(((T40*)_sfr));
  5246. /*[IF*/
  5247. if(r40end_of_input(((T40*)_sfr))){
  5248. _state=5;
  5249. }
  5250. else{
  5251. _cc=/*(IRF4.6last_character*/((T3)((/*RF2*/(((T40*)_sfr))->_memory/*9*/)))/*)*/;
  5252. }
  5253. /*FI]*/
  5254. {int z1=_state;
  5255.  
  5256. if((0==z1)){
  5257. {int z2=_cc;
  5258.  
  5259. if(((9<=z2)&&(z2<=10))||(13==z2)||(32==z2)){
  5260. }
  5261.  else 
  5262. if(((48<=z2)&&(z2<=57))){
  5263. _id=r3decimal_value(_cc);
  5264. _state=1;
  5265. }
  5266.  else{_state=6;
  5267. }}
  5268. }
  5269.  else 
  5270. if((1==z1)){
  5271. {int z2=_cc;
  5272.  
  5273. if(((48<=z2)&&(z2<=57))){
  5274. _id=((_id)*(10))+(r3decimal_value(_cc));
  5275. }
  5276.  else 
  5277. if((34==z2)){
  5278. _type_name=oBC39temporary_type_name;
  5279. /*[IRF3.3clear*/((((T7*)(((T7*)_type_name))))->_count)=(0);
  5280. /*]*/
  5281. _state=3;
  5282. }
  5283.  else 
  5284. if((9==z2)||(32==z2)){
  5285. _state=2;
  5286. }
  5287.  else{_state=6;
  5288. }}
  5289. }
  5290.  else 
  5291. if((2==z1)){
  5292. {int z2=_cc;
  5293.  
  5294. if((34==z2)){
  5295. _type_name=oBC39temporary_type_name;
  5296. /*[IRF3.3clear*/((((T7*)(((T7*)_type_name))))->_count)=(0);
  5297. /*]*/
  5298. _state=3;
  5299. }
  5300.  else 
  5301. if(((9<=z2)&&(z2<=10))||(13==z2)||(32==z2)){
  5302. }
  5303.  else{_state=6;
  5304. }}
  5305. }
  5306.  else 
  5307. if((3==z1)){
  5308. {int z2=_cc;
  5309.  
  5310. if((34==z2)){
  5311. _type_name=((/*UT*/(void)((T21*)(r39string_aliaser()))),r21item(_type_name));
  5312. _item_count=(_item_count)+(1);
  5313. r42put((T42*)(oBC39id_memory),_id,_type_name);
  5314. (/*SFN*/C->_max_id)=r2max((/*RF2*/(C)->_max_id/*0*/),_id);
  5315. _state=4;
  5316. }
  5317.  else 
  5318. if(((9<=z2)&&(z2<=10))||(13==z2)){
  5319. _state=6;
  5320. }
  5321.  else{r7extend(((T7*)_type_name),_cc);
  5322. }}
  5323. }
  5324.  else 
  5325. if((4==z1)){
  5326. {int z2=_cc;
  5327.  
  5328. if((10==z2)||(13==z2)){
  5329. _state=0;
  5330. }
  5331. }
  5332. }
  5333. }
  5334. }
  5335. r40disconnect(((T40*)_sfr));
  5336. /*[IF*/
  5337. if((_state)==(6)){
  5338. r35put_string((T35*)(oBC13echo),((T0*)ms39_37449));
  5339. r35put_integer((T35*)(oBC13echo),_item_count);
  5340. r35put_string((T35*)(oBC13echo),((T0*)ms39_10880));
  5341. }
  5342. /*FI]*/
  5343. r35put_string((T35*)(oBC13echo),((T0*)ms39_33074));
  5344. r35put_integer((T35*)(oBC13echo),(/*RF2*/((T42*)(oBC39id_memory))->_count/*36*/));
  5345. r35put_character((T35*)(oBC13echo),((T3)'\57'));
  5346. r35put_integer((T35*)(oBC13echo),(/*RF2*/(C)->_max_id/*0*/));
  5347. r35put_string((T35*)(oBC13echo),((T0*)ms39_291));
  5348. }
  5349. /*FI]*/
  5350. }
  5351. T0*oBC39id_memory=NULL;
  5352.  
  5353.  
  5354. T2 r39item(T39* C,T0* a1){
  5355. T2 R=0;
  5356. /*[IF*/
  5357. if(r42has((T42*)(oBC39id_memory),a1)){
  5358. R=r42at((T42*)(oBC39id_memory),a1);
  5359. }
  5360. else{
  5361. (/*SFN*/C->_max_id)=((/*RF2*/(C)->_max_id/*0*/))+(1);
  5362. R=(/*RF2*/(C)->_max_id/*0*/);
  5363. r42put((T42*)(oBC39id_memory),R,a1);
  5364. }
  5365. /*FI]*/
  5366. return R;
  5367. }
  5368.  
  5369.  
  5370. void r130compile_to_c_old(T130* C){
  5371. X104compile_to_c_old((/*RF2*/(C)->_target/*4*/));
  5372. /*[IF*/
  5373. /*AF*//*AE*/
  5374. /*FI]*/
  5375. }
  5376.  
  5377.  
  5378. T0* r130runnable_expression(T0* a1,T0* a2){
  5379. T0* R=NULL;
  5380. R=X104to_runnable(a1,a2);
  5381. /*[IF*/
  5382. if((R)==((void*)(NULL))){
  5383. {T68 se_tmp0;
  5384. r66add_position((*(se_tmp0=X104start_position(a1),&se_tmp0)));
  5385. }
  5386. r130fatal_error(((T0*)ms116_16290));
  5387. }
  5388. /*FI]*/
  5389. return R;
  5390. }
  5391.  
  5392.